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ft* i.Q 



ft ill 



SUBROUTINE TABLE 


A DDR 


A DDR 


BAB IC 


2409/090/ 

CLEAR ATTR 

O i_> 0 0 / 0 O Q 0 

!/.j;[ PE out ( pi j jf~ r |\j) 

2518/0906 

FIND CL ADDR 

UOUS/0008 

ERROR 

2535/09E1 

SCROLL WAIT 

0016/0010 

P R IN T C H A R ( W R C H ) 



0024/001B 

GET CHAR 

I /0-2 


Q Q 3 2 / 0 0 2 /• 

NEXT CHAR (NXT IS) 

2562/0A02 

K-DUMP<COPY) 

n 04 0/0028 

CALC FP 

2595/0A23 

COPY PR BUFFER 

0048/0030 

insert ESC spaces 

2613/0A35 

CLEAR PR BUFFER 

o o 3 a / f > o 3 S 

UPD-KEVBOARD 

263 4 / 0A 4 A 

PR LINE(RESCAN) 

0 O / V / ( ) 0 Zj. [•••' 

FHLAF 

2690/0A82 

EDITOR (EDIT-K) 

0083/0050; 

ERROR—2 

2791/0AE7 

INSERT A 

f'"*« f - ; •::> «nr 

pppnP-7 i 

—| T -J v-, j— 

ED IT 

.. —* 



0102/0066 

N 0NMASKA BLE INTRPT 

2905/OB59 

CUR DOWN EDIT 

O116/0074 

GET CHAR ADDR 

2925/0B6D 

CUR LEFT EDIT 

0119/0077 

INC CH ADR (NC-HL) 

2930/OB72 

CUR RIGHT EDIT 

0 x 20 / 0070 

S A V E C H A D R (T C - H L) 

2939 /0B7B 

DELETE EDIT 

0125/007D 

SKIP OVER 

Ufcc5l~f 

EDIT ENTER 

O152/0098 

TOKEN SPELL 

• t ) \ } / / ( I ;***J }”*! P* 

CUR UP EDIT 

0551/0227 

MAIN KEY TAB! F 

3036/OBDC 

EDIT SYMBOL 



3042/QBE2 

EDIT GRAPHIC 

K SCAN 


3045/0BE5 

EDIT ERROR 

0688/02B0 

KEYBOARD SCAN 

3069/OBFE 

DEL CUR(CLEAR SPACE) 

0737/02E1 

U p D - !< El Y B 0 A R D 

3086/OCOE 

ECHO(EDIT COPY) 

0822/0336 

REPEAT KEY 

3341/ODOD 

DESLUG 

0860/035C 

K BASE 



OSS1/0371 

CHAR CODE 

ED IT 


1011/03F3 

PARR(SOUND) 

3357/OD1D 

K-NEW 

1078/0436 

BEEP 

3377/OD31 

INITIALIZE 



345S/0DS2 

NEW 

I/O-l 


3595/OEOB 

XFER DISPATCHER 

1 280/0500 

P; 2 Kj n T*0 

3624/0E2S 

MAIN EXECUTE 

1338/053A 

C U R S 0 R L E F T (p - L F T) 

3631/0E2F 

• MAIN-1(LED13) 

1 •-= 6* A / u 5= o 4 

C U R S 0 R R1G H T (P - R T) 

3725/0ESD 

MAIN—4(LED4) 

1382/0566 

NEW LINE <P-NL) 

3845/OF05 

SORT ERF’ #9 

1 408 / 0580 

PRINT "? n 

7Q/i i 

ERROR MESSAGE TABLE 

145S/05B2 

SET-AT 

4432/1150 

REPORT G 

1523/05F3 

STORE TV CHAR 

4440/ 1158 

MAIN ADD LINE ( T0 PR0 

i /. 0 / f) /_ i p. 

GET PRINT PQ3N 

4522/11AA 

CHAN INITAIL. I ZAT I ON 

1633/0662 

DO GRAPHIC 

4545/11Cl 

STREAM INITIALIZE 

1808/0710 

o cr ~r /\ -r T r= \ • r r- 

CL ! h-i ! ! £> V : 

A irtrr. / h ^ nr 

' w /XX w J"’ 

R E A D C H A R (W AIT !< E Y ) 

1855 / 073F 

PUT MESSAGE 

a = 7 - 7-7 / •» 1 nr i 

T / / /XX i._ X 

INPUT CHAR 

1 810 / 0776 

p p „ r i « 

4686/11EA 

PUT DIGIT (OUT CODE) 

1936/0790 

IV FULL2 

4 p 9 9 / 1 1 f- n 

SEND CHAR 

1 885 / 07C1 

ERR 5 

4 JL p 3, / 1 p* “T , 

SELECT CHANNEL 

O 1 P / , - p p O 

TEMP R-ATTE 

4 £. z, p / i “ -7 P; 

ERR 0 

2214/08A6 

K—CLS 

4680/1248 

CHAN FLAG (SEL HL) 

2217/08A9 

CLEAR LOWER SCREEN 

4709/1265 

CART CHAN 

2282/03EA 

CL 8 

4792/12B8 

ONE SPACE (INS 1 ) 

2324/0914 

STORE (TV) CURSOR 

4795/12BB 

INSERT BC SPACES 

2361/0939 

SCROLL(SCRL) 

4810/12CA 

REMGSZ (POINTERS) 

2431/097F 

CLS LINES (CLS-EO 

4900/1324 

GET LINE # 








4 909/132D 

RESERVE SPACE(LCU 2 ) 

6724/1A44 

STATEMENT LOOP(LS4) 

4927/133F 

S E T M INIM U M (C L E L) 

6725/1A45 

STATEMENT LOOP -1 

4942/J..34E. 

SET WORK(X-CALC) 

6 S A 1/1A89 

END STATEMENT 

4948/1354 

RESET 

CJ O a + CO .• 1 i i L- L-* 

END STATEMENT-2 

4963/1363 

RECLAIM ED IT(X-T-HL 

6872/IADS 

£ X E C U T E < L. IN E R U N) 

4971/13AB 

SEARCH (INDEXER) 

6912/1BOO 

REM 

4980/1374 

SEARCH CHAN SYS CON 

6921/0809 

LINE END 



6973/1B42 

ERR M 

CHANS 


6980/1844 

END? 

5023/139F 

CLOSE 

70 1 2 / 1 PA4. 

TEM1 TABLE 

5032/13A8 

RESTORE STREAM 

*7 07* 4 / 1 p 7 1 "\ 

Pj OSR 7 

5054 / 1 /'.pip 

CLOSE CHANNEL 

7027/1B73 

PI AR9 O 

C> / 1 *7 T~| 

SYS C0NF CK CLOSE 

7028/1874 

pi ARR 5 

c:r i i:r * .t r— 

STREAM DATA 

~ 7 A / -J p O .■ \ 

CLASS END 

5 162 / 1 42A 

□REN 

7 04 2 / i B 8 2 

CLASS 1CTEM1) 

52_c! 1 / 146 d 

□PEN CHANNEL 

7089/1BE1 

CLASS 2 



7097/1BB9 

FETCH A VALUE 

LI ST 


7 1 00 / 1 PR f"; 

| *]“ 9 

5345/i4E 1 

LIST 

7119/1BCF 

CLASS 4 

5441/1541 

K-LLIST 

"7 i 77 / 1 p n ]~; 

EXPECT EXPRSN(DYADIC) 

5445 /j 545 

K—L 1ST 

7 i 33 / j. BDD 

C i A S R 

v.-~ i~ ~f ~r / -i nr/\ •» 

Pi |T C;TR 

7141/1BE5 

EXPECT 1 # £ TEM A,) 

nr ur r-j / r ~\/-.• 

LINE PRINT OUT <LP0) 

7149/1BED 

SYN ERR C 

5577/15C9 

PRINT LINE 

“7 i £•— i / h uC!” 

•• X w X / X A - 1 i__ ! 

CLASS 10 

5634/1602 

SKIP 3[ M{7 ppTKJT 

~7 i /_ i / i p LC 
•• x w 1 / X i_>! 

CLASS 7(SET PERM COLOR 

5645/1SOD 

FLASH A CHAR 

7209/1021 

CLASS 9 

5 ~y 7 / j /. p p, 

PRINT CURSOR 

7232/1C40 

CLASS 3 RET 

5723/165B 

NEXT LINE 

“7 ■“ TO / i f' * / 

/ -i_ X L..- “T O 

CLASS 11 

5736/1668 

ST 0 R E LI N E (D E — HL) 

7241 / 1 C49 

CLASS 6 (OPTi ona 1 #) 


PRINT CHAR IN LINE 

7249/1C51 

STK 0 

c-“ O A i.. / i jL T\ L. 

■_J / X *__! iJ •_„= 

FIND LINE ADDR 

7257/1C59 

STOP 

5364/16E9 

COMPARE BC ( LINES) 

7 pcrp 

IF 

5872/16F0 

FIND SUB LINE 

7288 / 1 779 

FOR 

5 8 7 5 / 1 t'** i P 3 

FIND SUB LINE-1 

7454 /i 520 

SKIP (LOOK PROG) 

5o v q / •* ~y 'y 

REC LEN(NEXT ONE) 

7509/ 11)55 

K1P V T 

1 ’•!! _A i 

p: Q p 7 / i 7 4 r.~ 

DIFFEBENCE 

7554 /ipR? 

ERR 1 

Q /_ ^ / 1 "7 AT'; 

DEL DE(REELAIM -1 ) 

9556/JD h 4 

NEXT LOOP 

cr o * ~r nr 

--J 7 £> O / I / -_J U 

DEL REC(RECLAIM-2) 

7574/1D96 

READ NEXT VAR 

c ,qg? / 1 -7 £-o 

LINE # IN EDIT 

7575/1D97 

READ 


ei ix r.' p 

7~i / i p-nr'•« 

f * ! —* S X .— -.J all. 

DO NORMAL READ 

6037/1795 

PUT LINE #(OUT #—2) 

_y • a . 

/ / w / X iZ. =_• --L 

ERR E 



7810/1E82 

DATA 

ARDS 


7828/1E94 

PASS BY 

6069/17B5 

ARQS INITALIZE 

7 O T 7 / 1 p p T~j 

RESTORE 

P O/ j 7 pc 

GET A LINE 

7049 / 1 pAQ 

CART RESTORE 

6122/17EA 

AR0S LINE 

7 O O 9 / 1 [Tp/\ 

RESTORE BC(RESTBC) 

6143/17FF 

AROS NEXT 

7892/1ED4 

RANDOMIZE 

£> 4 2 / i. c5 C *“• 

AAR OS 

7908/1EE4 

CONTINUE 



7921 / 1 EF 1 

JUMP (GOTO) 

SYNTAX 


7940/1F04 

OUT 

6469/1945 

SYNTAX OFFSET TABLE 

7946/1F0A 

POKE 

6523/ 197Ef 

SYN PARAMETER TABLE 

7951/1F0F 

GET 2 PARAMETERS 

6624/19E0 

TEM 38 P-SAVE 

7966/IFIE 

FIX-Ul(FIND SINGLE INT 

6625/19E1 

TEM 39 P-LOAD 

7971/1F23 

FIX—U(FIND DOUBLE INT) 

6695/1A27 

SYNTAX 

7977/1F29 

ERR B 







7979/ 1 F2B 

RUN 

96S0/25D0 

MOVE 

7990/1F36 

CLEAR 

96S4/25D4 

ERASE 

7993/1F39 

CLEAR BC 

9700 

GARBAGE(NOT USED) 

8067/1F83 

ERR M 


8089/1F99 

GO SUB 

GRAPHS 


8123/1FBB 

CHECK SIZE 

9731/2603 

SCRMBL(SCREEN ADDR C 

8143/1FCF 

ERR 4 

9764/2624 

FIND POINT 

S148/1FD4 

RETURN 

9781/2635 

PLOT 

8167/1FE7 

ERR 7 

9790/263E 

PLOT BC 

8171/1 FEB 

PAUSE 

9324/2660 

GET X,Y(STK TO BC) 

8201/2009 

BREAK? 

9837/266D 

STK TO A 

8221/20ID 

DEF FN 

9849/2679 

CIRCLE 

8320/2080 

ON ERR 

9947/26DB 

D R A W 

8401/20D1 

STICK 

10105/2779 

DRAW STEPS 

8478/21 IE 

GET # 

10110/276E 

RECALC X,Y 

C> A P "7 / o 1 D ”7 

READ NEXT SOUND CH 

10192/27D0 

LINE DRAW 

8488/2128 

SOUND 

10198/27D6 

DRAW PARAMETERS -1 



10256/2810 

DRAW L 

SYNTAX 2 
8527/214F 

UNSTACK Z 

10259/2813 

DRAW LINE 

O*•““T*“'* /n 1 ir-cr 
*— 1 --J ‘ / xl. I •__* -_J 

K-LPRINT 

EXPRESSION 


8537/2159 

K-PRINT 

10324/2854 

EXPRESSION 

8569/2179 

SET TOKEN FLAG 

10328 / 28 5 8 

EXPRESSION —1 

8574/217E 

PRINT SEQUENCE 

10344/2868 

CK QUOTE END 

8596/2194 

PRINT C-R 

10363/2879 

EXPECT 2 COORDINATES 

8603/219B 

PRINT ITEMS 

10377/2889 

INTERPRET? 

8676/21E4 

STR END? 

i f j p ~? / 2 h P F 

FIND SCREEN POSN 

8679/21E7 

TERM‘“‘ 

10455 / 28D 7 

FIND ATTR 

8685/21ED 

PRINT SPACING 

10477/28EC 

PI 

8719/22OF 

ALTER STREAM? 

104S8/2SF3 

3TI CK 

8747/222B 

INPUT 

10546 / 2 9 3 2 

ERR A 

8811/226B 

INPUT SEQUENCE 

10548/2934 

FREE 

9 S S / xi 3 3 6 

DO LINE 

i i ~7 O si f~ 

x •—* / x_ / x_ / ~r L_- 

SCAN FUNCTION TABLE 

9059/2363 

INPUT ASSIGN 

10609/2971 

SYN-QUOTE 

Q A O /_ / p *T "7 p 

ppp. p 

10649/2999 

SYN-STRING 

9083/2380 

NOT KB? ( CK CHAN K) 

10662/29A6 

3 y N — B R A C K E T 

9099/238B 

READ NEXT COLOR CH 

1 ft L. *7 nr / ^ q 7.0 ~ T 
x / •_> / x_ ? Jb •„* 

J P FN 

Q 1 Cx'i i 

GROUND COLOR 

10678/29B6 

RND 

9166/239C 

CK TEMP COLOR 

10725/29E5 

F-PI 

9 i 47 / 23PB 

TV COLOR(TEMP) 

10738/29F2 

p — t [\|KEY$ 

q> 1 p v / p 't p p 

COLOR 

10790/2A26 

SCREEN* 

9198/23EE 

ERR K 

10800 / 2A30 

ATTR 

9238/2416 

TV COLOR CHANGE 

10809/2A39 

POI NT 

9245/24 ID 

HI FLASH 

10818/2A42 

ALPHANUM 

9278/243E 

BORDER 

10827 / 2A 4 B 

BIN 

9300/2454 

RESET 

1 fiOO 1 /?AQ 1 

X K.J x / X.. ! i c* X 

» '2 i-. i i i i — r. t <"*•• 

■—* i m LJi iiE. r, x L_- 

9426/24D2 

NEW DEVICE 

1 JO O “7 / a O ">■ 
x Vuu / / x_f~»0 . 

LET # 

9543/2547 

SAVE,LOAD,VERIFY, 

1 f \ O ^ / A* 

PUSH PRIORITY 


MERGE 

10960/2ADO 

S-CONT-2 

9570/2562 

VIDEO 2 SCREEN 

11091 / 2B53 

PRIORITY TABLE 

9575/2567 

ERR J 

11131/2B7B 

FN 

9577/2569 

SKIP IT 

11216/2BD0 

ERR P 

9657/25B9 

PASS EM(BANK 254) 

11337/2C49 

ERR Q 

9672/25C8 

CAT 

11369/2C69 

NEXT HL (SKIP OVER) 

9676/25CC 

FORMAT 




(SKIP OVER) 





IDENTIFY 


13906/3652 

RESTACK TWO # 

11376/2C70 

FIND N(LOOK VARS) 

13910/3656 

E TO FP(RESTACK FP) 

11535/2DOF 

STK FN ARGUMENT 



11A04/2D54 

STK VARS < GET—EL) 

CALC 


1 .1 742/2DDE 

ERR 3 

13956/3684 

CONSTANT TABLE 

11792/2E10 

SLICER 

13974/3696 

ADDRESS TABLE 

118SS/2E70 

PUSH STRING 

14106/371A 

CALCULATE(CTRO) 

11892/2E74 

PUT AEDCB(STK ST) 

14 1 / o / 

DELETE 

11915/2E8B 

INTERPRET EXP-2 

14177/3761 

FP—CALC—2 

11948/2EAC 

LD DE 

14184/376R 

TEST 5 SPACE(ROOM?) 

11954/2EB2 

GET HL*DE 

14195/3773 

STK MEM 

11965/2EBD 

LET 

14207/377F 

MOVE FP < DUFLICATE) 

12132/2F64 

L ENTER 

14213/3785 

STK DATA 

12144/2F6D 

L ADD $ 

14262/37B6 

SKIP CONSTANTS 

12164/2F84 

L NEW * 

14263/37B7 

SKIP NEXT 

12200/2FA8 

2 FIRST 

I 7j. *7 "7 / *r ~r r•• 

LOCATE MEM(ARRAY) 

12207/2FAF 

POP STRING 

14286/37CE 

GET FROM MEM(E SEPIE 

12224/2FC0 

DIM 

14298/37DA 

STACK CONSTANT(A SER 

12358/3046 

ALNUM? 

14316/37EC 

STORE IN MEM(C SERIE 

12363/304B 

ALPHA 

14331/37FB 

EXCHANGE 



14344/3808 

SERIES GEN(80 SERIES 

IN/OUT 


l Q *T T ~7 / 2 Q 2 Q 

ABS 

12377/3059 

STK UNSIGNED # 

14381/382D 

NEGATE 

12457/30A9 

E FORMAT 

14417/3851 

SIGN(UM) 

12505/30D9 

DIGIT? 

14436/3864 

IN 

19512/3OEO 

STK DIGIT 

14443/386B 

PEEK 

12518 / 30E 6 

STK A 

14450/3872 

USR # 

1 2521/2 f) F9 

STK BO 

14466/3882 

GET USR BANK 

-J ^cr-T-7 /7 ( ",pn 

INT TO FP(ININT) 

14478/338E 

CK SYS CONE 

12557/310D 

xEy 

1 4 5'7 

USR STRING 

12605/313D 

LD DE(GET INT) 

14696/3904 

TEST 0 

1261S/314A 

STK DE-UNSISNED 

14612/3914 

TEST >0 

12620/3140 

STK DE-SIGNED 

14620/391E 

NOT 

12640/3160 

FP TO BO 

14625/3921 

TCOJ 

12671/317F 

GET EXP (LOG 2""A> 

14630/3926 

FP 0 OR 1 (STK BO OLE A! 

12691/3193 

F P TO A 

14646/3936 

OR 

12705/31A1 

PRINT FP 

14655/393F 

AND 

13130/334A 

CA = 10*A + C 

14664/3948 

STR ?, # 



14678/3956 

# & STRING COMPARED 

SUMS 


14775/39B7 

STR ADD 

13146/335A 

PREP ADD 

14810/39DA 

STK POINTERS 

13177/3379 

GET 2 ttS <SUMS LD) 

14820/39E4 

CHR* 

13212/3390 

SHIFT FP 

14839/39F7 

err b * ‘ 

13242/33BA 

ZERO 4/5 

14841/39F9 

VAL/VAL$ 

13251/3303 

ADD BACK 

14906/3A3A 

STR^ 

13262/330E 

SUBTRACT 

I4944/3A60 

READ-IN 

13266 / 33D 3 

ADD 

14980/3AS4 

CODE 

13416/3468 

MULT<HL#DE) 

14991/3A8F 

LEN 

13439/347F 

PREP M/D 

14997/3A95 

DJNZ 

13449/3489 

TIMES 

15009/3AA1 

JUMP 

13564/34F0 

DIV EXP 

15010/3AA2 

JUMP-2 

13538/3514 

TEST NORM 

15018/3AAA 

JUMP IF TRUE 

13676/3560 

ERR 6 

15030/3AB6 

END FP 

13678/356E 

DIVIDE 

15035/3ABB 

INT DIV(N MOD M) 

13779/35D3 

TRUNCATE 

15050/3ACA 

INT 







15058/3AD2 

X-N! 

15071/3ADF 

EXP 

15150/3B2E 

IN 

15262/3B9E 

GET 

15301/3BC5 

cos 

15312/3BD0 

SIN 

15349/3BF5 

TAN 

15357/3BFD 

ATN 

15438/3C4E 

ABN 

15454/3C5E 

ACS 


iRG (ANGLE) 


15461/3C65 
1546S/3C6C 


SQR 

t n i 


TAPE 

0104/0068 
0229/00E5 
0243/00F8 
0252/00FC 
0396/0189 
0397/018D 
0427/01AB 
0552/0228 
0568/0233 
0591/024F 
0659/0293 


WRITE TAPE 
WRITE BORDER 
ERR D 
READ TAPE 
READ BIT 
READ EDGE 

SAVE/LOAD/VERIFY/MERGE 
ERR F 


:• H ■ 


TITLE 


SAVE DATA' 
ERR 2 


15497/3CS9 

TAPE MESSAGES 

0754/ 

'02F2 

SAVE 

SCRE 

1561 6/31)00 

CHARACTER TABLE 

0814/ 

/ oy;2E- 

SAVE 

CODE 



0981 / 

'03D5 

GET 1 

t 

24576/6000 

XFER DISPATCHER 

1 |')pO , 

•'0440 

SAVE 

TYPE 



1095/ 

•'0447 

cai * nr 

ri v »__ 

LI NE 

p j | }--j r y t ri kj n j 

or m!L hoK 

-j “7 

'04C9 

f“*i v i—_ 

ALL 


25088/6200 
25262/62AE 

2 5375 / p p n 

25337 / A, 2 F 4 

“0 K~ “?* tr i / £ ~r “7 

y y; 6 .t i <~. 
2 !5 5.5 / 7; 1 i. 
25403/633D 
25436 / 6 5 5 C 
2 5 51 2 / A 5 A D 
25605/6405 
25677/6440 
•94/645E 
73/6499 
51E 

25930/654A 

2 5 O 2 (•) / i. cr ; -7 

•“? s o o "7 / .6. l-: o r\ 

26062/65CE 
26064/65D0 
26252/6680 
26544/66E8 

P A. 4.f)-> 


FUNCTI ON 
INTERUPT 
LIT3 

pnp i_j i pr 


3PATCH 


ip 


:g 




NONMASKABLE 
BS MAX BANK 
GET WORD 
PUT WORD 
WRITE 
READ BS REG 
GET STATUS 
GET CHUNK 
GET BANK # 

BANK ENABLE 
SAVE BANK STATUS 
RESTORE STATUS 
GOTO BANK 
BANK STATUS STACK 
BS-SP 
CALL BANK 
MOVE BYTES 
GREAT BITMAP 
XFER BYTES 


26647/6817 

DISPATCr 

•I SOUR 

26600/67E8 

BLANK 


26688/6840 

CHANNEL 

DATA 

26710/6856 

BASIC Si 

ART 

EXTENDED Rfj 

in 



123S/2BE6 
1423/058F 
147S/05C6 
1432/05CA 
1484/05CC 
1765/06E5 
1945/0799 
2129/0851 
2218/08AA 
2265/0SD9 
2279/08E7 
2390/0956 
2410/096A 
2412/096C 
2419/0973 
2458/099A 
2548/09F4 
2636/0A4C 
2772/0AD4 
2779/0ADB 
2S09/0AF9 
3025/0BD1 
3103/0C1F 
314S/0C4C 
3317/0CF5 
3323/OCFB 
3428/0D64 
3460/0D84 


LOAD HEADER 
VERIFY 
READ TAPE 
ERR R 
LOAD 
MERGE 

MERGE LINE/VARI ABLE 

SAVE-CONTROL 

AKEY 

EXIT ERROR 
EX INITIALIZE 
CART INITIALIZE 
ERR R 

NEW INITIALIZE 

NEW INIT-2 

FIND CHAN ADDR 

BUILD SYS CONE TABLE 

CALL RES REG 

SET END MARKER 

INTERRUPTABLE RST 

NEXT CHUNK 

RESET BS REG 

GET USR BANK 

RESET SYS CONF. 

SET END MARKER!-2 
CLEAR SYS CONF 
INCREASE BANKS 
CLEAR MAX BANKS 


BASIC • 
0000/0000 
0008V0003 
0056/0038 
0073/0049 
0079/004F 
0090/005A 


RSTO STARTUP' 

RST3 ERROR 
INTERRUPTABLE RST 
STARTUP CONTINUED 
SET HORIZ SEL REG 
XFER SET HOR SEL R 


CHANGE VIDEO 
3504/ODBC OPEN D FILE 
3623/0E27 CLOSE D FILE 
3726/0ESE CHANGE VIDEO 
3898/0F3A CHANGE VIDEO ABORT 
3901/0F3A CV END 





3907/OF43 
3965/0F7D 
3978/OF8A 
3993 /QF99 


PASS ING 

GET GOSUB ADDR 
GOTO BANK 
CALL BANK 


7 42 4 / 1D 0 0 FI X B L 
7900/1EDC JP TABLE 





<DISASSEMBLY OF THE TIMEX/SINCLAIR 2068X 
RESTART ROUTINES and PRINT TABLES 


ADDR CODE(HEX) 

START 

0000 F3 RSTO WIPEOUT 
0001 AF 
0002 11,FF,FF 
0005 C3,31,OD 

ERROR RESTART 
0008 2A,5D,5C RST8 ERROR 
0011 22,5F,5C 
0014 18,43 

PRINT A CHARACTER RESTART 
0016 C3,ED,11 RST16 WRite CH 
0019-0023 FF 

GET CHARACTER RESTART 
0024 2A,5D,5C RST24 GET CHAR 
0027 7E 

0028 CD, 74, 00 TEST CHAR- 

003 1 DO 

NEXT CHARACTER RESTART 
0032 CD,74,00 RST32 NXT CHAR 
0035 18,F7 
0037-0039 FF 

CALCULATE FLOATING 
0040 C3,1A,37 
0043-0047 FF 

MAKE BC SPACES RESTART 
0048 C5 RST48 COPYUP 
0049 2A,61,5C (MAKE BC SPACES) 
0052 E5 
0053 C3,2D,13 

MASKABLE INTERRUPT RESTART 

0056 F5 RST56 UPD KEYBOARD 

0057 E5 

0058 2A,78,5C 

0061 23 

0062 22,78,5C 

0065 7C 

0066 B5 

0067 20,03 

0069 FD,34,40 

0072 C5 KEY INT 

0073 D5 

0074 CD,34,40 

0077 D1 


INSTRUCTION 

DI 

XOR A CLEAR A 

LD DE, 65535 P RAMTOP 

JP 3377 IN IT 


LD HL,(23645) CHAR ADDR 
LD (23647), HL XPOINTER 
JR 67 (83) ERROR 2 


JP 4589 SEND CHAR 
RST56 (NOT USED) 


LD HL, (23645) CHAR ADDR 
LD A, (HL) 

CALL 125 GET CHAR CONT 
RET NC 


CALL 116 GET CH ADDR 
JR 247 (0028) TEST CHAR 
RST56 (NOT USED) 


PUSH BC 

LD HL, (23649) WORK SPACE 
PUSH HL 
JP 4909 LCU2 


PUSH AF 
PUSH HL 

LD HL, (23672) FRAMES 
INC HL 

LD (23672), HL FRAMES 
LD A, H 

OR L HL=0? 

JR NZ, 3 (72) KEY INT 
INC (IY+64) FRAMES 
PUSH BC 
PUSH DE 

CALL 737 UPD KEYBOARD 
POP DE 


POINT RESTART 
RST40 CALC FP JP 14106 CALCULATE 

RST56 (NOT USED) 
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0078 C1 

0079 El Pop HL,pop AF 
0080 FI 
0081 FB 
0082 C9 

ERROR 2 ROUTINE 
0083 El ERROR-2 
Uo84 AE 

0085 FD,75,00 ERROR-3 

0088 ED,7B,3D,5C 
0092 C3,F4,13 
0095-0101 FF 

NONMASKABLE INTERRUPT CONT 

0102 F5 

0103 E5 

0104 2A,BO,5C 

0107 7C 

O1 08 B5 

0109 20(28), ERROR!! 

0111 E9 RESTART 

0112 El SKIP RESTART 

0113 FI 
0114 ED,45 

CHARACTER ADDRESS+1 ROUTINE 
0116 2A,5D,5C GET CHAR ADDR 
0119 23 INC CHAR ADDR (NC HL) 
0120 22,5D,5C TC-HL 

0123 7E 
0124 C9 

SKIROVER ROUTINE 

0125 FE,21 GET CHAR CONT 

0127 DO 

0128 FE,OD 

0130 C8 

0131 FE,OC 

0133 C8 

0134 FE,10 

0136 D8 

0137 FE,18 

0139 3F 

0140 D8 

0141 23 

0142 FE,16 

0144 38,01 

0146 23 

0147 37 SKIP INC 

0148 22,5D,5C 
0151 C9 

TOKEN SPELL TABLE 

0152 BF TOKEN SPELL 


POP BC 
POP HL 
POP AF 
El 
RET 


POP HL 
LD L, (HL) 

LD (IY+O), L ERR # 

LD SF', (23613) ERF; Stack Pointer 
JP 4948 RESET CALC STK 
RST56 (UNUSED) 


PUSH AF 
PUSH HL 

LD HL, (23728) TEMP STORAGE 
LD A, H 

OR L HL=0? 

JR NZ(Z), 1 (0112) SKIP RESTART 

JP (HL) Error at 109 causes 
POP HL DELETE to appear in an 
POP AF EDIT line. Correction 
RET N in () . 


LD HL, (23645) CHAR ADDR 
INC HL 

LD (23645), HL 
LD A, (HL) 

RET 


CP 33 SPACE OR LESS? 

RET NC 

CP 13 ENTER? 

RET Z 

CP 12 DELETE? 

RET Z 
CP 16 

RET C CHAF; Less than 16 

CP 24 

CCF 

RET C Error it carry set 
INC HL 
CP 22 

JR C, 1 (0147) SKIP INC 

INC HL 

SCF 

LD (23645), HL CHAR ADDR 
RET 


The last letter has 128 added 
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0153 

52,4E,C4 

RND 

0156 

49,4E,4B,45,59, A4 

INKEY* 

0162 

50, C9 

PI 

0164 

46, CE 

FN 

0166 

50,4F,49,4E,D4 

POINT 

0171 

53,43,52,45,45,4E,A4 

SCREEN* 

0178 

41,54,54,D2 

ATTR 

0182 

41 , D4 

AT 

0184 

54,41,C2 

TAB 

0187 

56,41,4C,A4 

VAL* 

0191 

43,4F,44,C5 

CODE 

0195 

56,41,CC 

VAL 

0198 

4C,45,CE 

LEN 

0201 

53,49,CE 

SIN 

0204 

43,4F,D3 

COS 

0207 

54,41,CE 

TAN 

0210 

41,53,CE 

ASN 

0213 

41,43,D3 

ACS 

0216 

41,54,CE 

ATN 

0219 

4C, CE 

LN 

0221 

45,58,DO 

EXP 

0224 

49,4E,D4 

I NT 

0227 

53,51,D2 

SQR 

0230 

53,47,CE 

SGN 

0233 

41,42,D3 

ABS 

0236 

50,45,45,CB 

PEEK 

0240 

49, CE 

IN 

0242 

55,53,D2 

USR 

0245 

53,54,52,A4 

STR* 

0249 

43,48,52, A4 

CHR* 

0253 

4E,4F,D4 

NOT 

0256 

42,49,CE 

BIN 

0259 

4F, D2 

OR 

0261 

4* 

l—*• 

m 

'M 

n 

AND 

0264 

3C,BD 


0266 

3E,BD 

>= 

0268 

3C, BE 

<> 

0270 

4C,49,4E,C5 

LINE 

0274 

54,43,45,CE 

THEN 

0278 

54, CF 

TO 

0280 

53,54,45,DO 

STEP 

0284 

44,45,46,20,46,CE 

DEF FN 

0290 

43,41,D4 

CAT 

0293 

46,4F,52,4D,41,D4 

FORMAT 

0299 

4D,4F,56,C5 

MOVE 

0303 

45,52,41,53,C5 

ERASE 

0308 

4F,50,45,4E,20,A3 

OPEN # 

0314 

43,4C,4F,53,45,20,A3 

CLOSE # 

0321 

4D,45,52,49,46,D9 

VERIFY 

0332 

42,45,45,DO 

BEEF- 

0336 

,43,49,52, 43,4C, C5 

CIRCLE 

0342 

49,4E,CB 

INK 

0346 

50,41,50,45,D2 

PAPER 

0350 

46,4C,41,53,C8 

FLASH 

0355 

42,52,49,47,48,D4 

BRIGHT 



0361 
0368 
0372 
0375 
0381 
0386 
0390 
0394 
0398 
0405 
0408 
0414 
0422 
0425 
0428 
0431 
0436 
0442 
0447 
0451 
0455 
0458 
0463 
0467 
0471 
0476 
0480 
0483 
0487 
0496 
0498 
0501 
0505 
0510 
0516 
0520 
0526 
0532 
0537 
0542 
0546 

MAIN 
0551 
0555 
0559 
U 563 
0567 
0571 
0575 
0579 
0583 
0587 


49,4E,56 ? 
4F 
4F, 

4C, 

4C 


44, 

52 

4E 

42, 

43, 

44, 
52, 

46, 

47, 
47, 

49, 
4C, 
4C, 
4C, 

50, 
4E, 
50, 
50, 
50, 

52, 

53, 
52, 


50 

4C 

54 

45 

41 

45 

45 

4F 

4F 

49 

45 

4F 

4F 


,45 
,D4 
52 
,49, 
,4F 
,41, 
, 54, 
, 53, 
,D7 
, 52 
,4E, 
, CD 
, CD 
5 D2 
, 20 , 


4F,20, 


4E 


,50, 


4C 


45, 52, 53, C5 
D2 

49,4E,D4 

53, D4 

DO 

C4 

Cl 

54 ? 4 p ? 52 ,C5 

44,45,D2 

54,49,4E,55,C5 


54, CF 
53,55,C2 

55, D4 
4F,41,C4 
49,53,04 
45, D4 

41,55,53,C5 
45,58,04 
y,r “ y,T “* C5 
52,49,4E,D4 
D4 


,4F, 


55, CE 
41,56,C5 

41,4E, 44,4F,4D,49,5A, 


INVERSE 

OVER 

OUT 

LPRINT 

LLIST 

STOP 

READ 

DATA 

RESTORE 

NEW 

BORDER 

CONTINUE 

DIM 

REM 

FOR 

GO TO 

GO SUB 

INPUT 

LOAD 

LIST 

LET 

PAUSE 

NEXT 

POKE 

PRINT 

PLOT 

RUN 

SAVE 

C5 RANDOMIZE 


49, C 6 

IF 

43,4C,D3 

CLS 

44,52,41,D7 

DRAW 

43,4C,45,41,D7 

CLEAR 

52,45,54,55,52,CE 

RETURN 

43,4F,50,D9 

COPY 

44,45,4C,45,54,05 

DELETE 

4F,4E,20,45,52,D2 

ON ERR 

53,54,49,43,CB 

STICK 

53,4F,55,4E,C4 

SOUND 

46,52,45,C5 

FREE 

52,45,53,45,D4 

RESET 


KEY TABLE (L mode-Caps) 


42,48,59,36 

B, H, Y, 6 

35,54,47,56 

5,T,G,V 

4E,4A,55,37 

N, J,U,7 

34,52,46,43 

4, R, F, C 

4D,4B,49,38 

M,K,1,8 

33,45,44,58 

3, E, D, X 

OE,4C,4F,39 

SYM SFT,L,0,9 

32,57,53,5A 

2, W, S, Z 

20,OD,50,30 

SPACE/BREAK,ENTER,P,0 

31,51,41 

1,0, A 


EXTENDED MODE (Unshifted letter) 











5 


0590 
0594 
0598 
0602 
0606 
0610 
0614 


E3, 

C 4 

B4, 

BC 

AF, 

BO 

A7, 

A6 

B2, 

BA 

C2, 

El 

Cl, 

B8 


E0,E4 

BD, BB 
B1, CO 

BE, AD 
E5, A5 
B3, B9 


READ,BIN,LPRINT,DATA 
TAN,SGN,ABS,SQR 
CODE,VAL,LEN,USR 
PI,INKEY*,PEEK,TAB 
SIN,INT,RESTORE,RND 
CHR$,LLIST,COS,EXP 
STR$,LN 


EXTENDED MODE (Letter and ei 


0616 

7E, 

DC, 

DA, 

5C 

0620 

B7, 

7B, 

7D, 

D8 

0624 

BF, 

AE, 

AA, 

AB 

0628 

DD, 

DE, 

DF, 

7F 

0632 

B5, 

D6, 

7C, 

D5 

0636 

5D, 

DB, 

B6, 

D9 

0640 

5B, 

D7 




ther shift) 

FREE,BRIGHT,PAPER,\ 

ATN,€,}, CIRCLE 
IN,VAL$,SCREENS,ATTR 
INVERSE,OVER,OUT,COPYWRITE 
ASN,VERIFY,STICK,MERGE 
1 ,FLASH,ACS,INK 
C,BEEP 


CONTROL CODES (Shifted diqet 
0642 OC,07,06,04 
0646 05,03,OA,OB 
0650 09,OF 


key) 

DELETE,EDIT,CAPS LOCK,TRUE VIDEO 
INV VIDEO, CUR L,CUR D,CUR U 
CUR R, GRAPHICS 


SYMBOL CODE 

C? 

(Letter 

0652 

E2, 

2A, 

3F 

, CD 

0656 

C8, 

CC, 

CB 

,5E 

0660 

AC, 

2D, 

2B 

, 3D 

U664 

2 E, 

2 C, 

3B 

n -t-f. 

0668 

C7, 

3C, 

C3 

,3E 

0672 

C5, 

2 F, 

C9 

, 60 

0676 

C6, 

3 A 




shift) 

STOP,*,?,STEP 
>=, TO, THEN, 

AT,—,+,= 

. I> 

• J J ? ? ? 

< = ,<,NOT, > 

OR,/,<>, POUND SIGN 
AND, : 


EXTENDED MODE (Diqet Symbol 
0678 DO,CE,A8,CA 
0682 D3,D4,D1,D2 
0686 A9,CF 

SYMB01 SHIFTED DIGET KEYS ARE 


shift) 

FORMAT,DEF FN,FN,LINE 
OPEN #,CLOSE #,MOVE,ERASE 
POINT,CAT 
CODED DIRECTLY 


KEYBOARD ROUTINES 
KEYBOARD SCANNING ROUTINE 


0688 

2E, 

2F 


0690 

11 , 

FF, 

FF 

0693 

01 , 

FE, 

FE 

0696 

ED, 

78 


0698 

2F 



0699 

E6, 

IF 


0701 

28, 

OE 


0703 

67 



0704 

7D 



0705 

14 



0706 

CO 



0707 

D6, 

08 


0709 

CB, 

3C 


071 1 

30, 

FA 


0713 

53 



0714 

5F 




K 

SCAN 

LD L, 

47 

(USE DIAG TECH MAN 1 



LD DE, 

FFFF 



LD BC, 

FEFE 

KEY 

LINE 

IN A, 

(C) 




CPL 





AND 31 


MASK 5 LOW BITS 



JR 2, 

14 

(0717) KEY DONE 



LD H, 

A 

DATA TO H 



LD A, 

L 

POSN CODE TO A 

EY-: 

3 KEY 

INC D 


D+l TO D 



RET NZ 

TOO MANY KEYS 

KEY 

BITS 

SUB 8 


SEARCH FOR KEY BIT 



SLR H 





JR NC, 

250 (0707) KEY BITS 



LD D, 

E 

FF OR PREVIOUS KEY 



LD E, 

A 

NEW KEY TO E 
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0715 

20 , 

F4 

0717 

2D 


0718 

CB, 

00 

0720 

38, 

E6 

0722 

7A 


0723 

3C 


0724 

C8 


0725 

FE, 

28 

0727 

C8 


0728 

FE, 

19 

0730 

C8 


0731 

7B 


0732 

5A 


0733 

57 


0734 

FE, 

18 

0736 

C9 




JR NZ, 

244 (0705) KEY-3 KEYS 

KEY DONE 

DEC L 

FIND ROW 


RLC B 

FE-FD-FB-F7-EF IN CONSEC- 


JR C, 

230 (0696) UTIVE PASSES 


LD A, 
INC A 

D KEY DONE 


RET Z 
CP 40 

D=FF 


RET Z 
CP 25 

CAPS ON 


RET Z 

SYMBOL SHIFT ON 


LD A, 

E EXCHANGE D & E 


LD E, 

D 


LD D, 

A 


CP 24 

SET TO NZ 


RET D 

=CAPS/SYM SHIFT E=CHAR CODE 


UPDATE KEYBOARD SUBROUTINE 

Use diagram p!04 Technical Manual IY=23610 


0737 CD,BO,02 UPD K 

0740 CO 

0741 21,00,5C 

0744 CB,7E K ST LOOP 

0746 20,07 

0748 23 

0749 35 

0750 2B 

0751 20,02 

0753 36,FF 

0755 7D K-CH-SET 

0756 21,04,50 

0759 BD 

0760 20,EE 

0762 CD,5C,03 

0765 DO 

0766 FD,CB,30,AE 
0770 21,00,5C 
0773 BE 
0774 28,2E 
0776 EB 
0777 2104,5C 
0780 BE 
0781 28,27 
0783 CB,7E 
0785 20,4 
0787 EB 
0788 CB,7E 
0790 C8 

0791 5F K NEW 

0792 77 

0793 23 

0794 36,05 

0796 23 

0797 3A,09,5C 

0800 77 


CALL 688 K SCAN 
RET NZ TOO MANY KEYS 
LD HL, 23552 K STATE 
BIT 7, (HL) 

JR NZ, 7 (0755) K CH SET 
INC HL 

DEC (HL) Dec Debounce Counter 
DEC HL Back to K state 

JR NZ, 2 (0755) K-CH-SET 
LD (HL), 255 FF TO K STATE 
LD A, L 

LD HL, 23556 (K STATE+4) 

CP L 

JR NZ, 238 (0744) K ST LOOP 
CALL 860 K BASE 
RET NC 

RES 5, (IY+48) DEL REPEAT OFF 

LD HL, 23552 <K STATE) USE DIAG 
CP (HL) pi04a 

JR Z, 46 K REPEAT 
EX DE, HL 

LD HL, 23556 (K STATE+4 )) 

CP (HL) 

JR NZ, 39 K REPEAT 
BIT 7, (HL) 

JR NZ, 4 (0791) K NEW 
EX DE, HL 
BIT 7,(HL) 

RET Z NEITHER EMPTY 
LD E, A 
LD (HL), A 
INC HL 

LD (HL), 5 RESET DEBOUNCE TO 5 
INC HL 

LD A, (23561) REPeat DELay 
LD (HL), A 




0801 23 
0802 FD,4E,07 
0805 FD,56,01 
0808 E5 
0809 CD,71,03 
0812 El 
0813 77 

0814 32,08,5C LD LAST K 

0817 FD,CB,01,EE 
0821 C9 

KEYBOARD REPEAT SUBROUTINE 

0822 23 K REPEAT 

0823 36,05 

0825 23 

0826 3A,08,5C 

0829 FE,CE 

0831 DO 

0832 35 

0833 CO 

0834 3A,0A,5C 

0837 77 

0838 23 

0839 7E 

0840 FE,CO 

0842 20,E2 

0844 FD,CB,30,EE 

0848 F5 

0849 01,20,4E DELAY 

0852 OB LOOP 

0853 79 

0854 BO 

0855 20,FB 

0357 FI 

0858 18,D2 

TEST KEYBOARD MODE SUBROUTINE 
0860 42 K BASE 

0861 16,00 
0364 7B 
0864 FE,27 
0366 DO 
0867 FE,18 
0869 20,03 
0871 CB,78 
0873 CO 

0874 21,27,02 LD KEY 

0877 19 

0878 7E 

0879 37 

0880 C9 

KEYBOARD DECODING SUBROUTINE 
0881 7B CH CODE 


INC HL 

LD C,(IY+7) MODE 
LD D,(IY+1) FLAGS 
PUSH HL 

CALL 881 CHAR CODE 
POP HL 
LD (HL), A 

LD (23560) , A LAST l< 
SET 5,(IY+1) KEY HIT ON 
RET 


INC HL 
LD (HL), 5 
INC HL 

LD A, (23560) LAST K 
CP 206 

RET NC TOKEN 

DEC (HL) 

RET NZ TOO EARLY 
LD A, (25562) REPPER 
LD (HL), A 
INC HL 
LA A, (HL) 

CP 12 DELETE? 

JR NZ, 226 (0814) LD LAST K 

SET 5,(IY+43) DELETE REPEAT ON 

PUSH AF 

LD BC, 20000 

DEC BC 

LD A, C 

OR B 

JR NZ, 251 (0852) LOOP 

POP AF 

JR 210 (0814) LD LAST K 

Use diagram pl04c Tech Manual 
LD B, D 
LD D, 0 
LD A, E 

CP 39 CAPS SHIFT OR NO KEY? 

RET NC KEY >= 27H 
CP 24 SYMBOL SHIFT? 

NR NZ, 3 (0874) LD KEY 
BIT 7, B SYMBOL SHIFT? 

RET NZ 

LD HL,551 TABLE 3 OFFSET 
ADD HL, DE NOTE:D = O 
LD A, (HL) 

SCF 

RET 

Use diagram pl04d Tech Manual 
LD A, E C=MODE, D=FLAGS, E=CODE 
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0832 

FE,3 A 


0884 

38, 2F 

• . 

0886 

OD 


0887 

FA, 8D, V 


0890 

28,03 


0892 

C6, 4F 


0894 

C9 


0895 

21,OD,02 

MODE E 

0398 

04 


0899 

23,03 


0901 

21,27,02 


0904 

16, 00 

FETCH 

0906 

19 


0907 

7E 


0908 

C9 


0909 

21,48,02 

TABLE 5 

0912 

CB, 40 


0914 

28, F4 


0916 

CB, 5A 


0918 

28, OA 


0920 

FD,CB,30,5E 


0924 

CO 


0925 

D4 


0926 

CO 


0927 

C6,20 


0929 

C9 


0930 

C6, A5 

K TOKEN 

0932 

C9 


0933 

FE, 30 

K DIGIT 

0935 

D8 


0936 

OD 


0937 

FA,DB,03 


0940 

20 , 19 


0942 

21,76,02 


0945 

CB,68 


0947 

28, D3 


0949 

FE, 38 


0951 

30, 07 


0953 

D6,20 


0955 

04 


0956 

C8 


0957 

C6,08 # 

OR GRAPHIC 

0959 

C9 


0960 

D6,36 

8 OR 9 

0962 

04 


0963 

CB 


0964 

C6, FE 


0966 

C9 


0967 

21,52,02 


0970 

FE, 39 


0972 

oo oo 

^-O , x.t> 


0974 

FE, 30 


0976 

28, B6 


0978 

E6, 07 


0980 

C6,80 



CP 58 

B=SHIFT 

JR C, ' 

47 (0933) K DIGIT 

DEC C 

REMOVE K/L MODE 

JP N, 

909 TABLE 5 

JR Z, 

3 (0895) MODE E 

ADD A, 

79 CHAR=GRAPHIC 79= 

RET 


LD HL, 

525 TABLE 2 OFFSET 

INC B 

SHIFT? 

JR Z, 

3 (0904) FETCH 

LD HL, 

551 TABLE 3 OFFSET 

LD D, 

0 

ADD HL 

, DE 

LD A, 

(HL) 

RET 


LD HL, 

587 TABLE 5 OFFSET 

BIT 0, 

B SYMBOL SHIFT? 

JR Z, 

244 (0904) FETCH 

BIT 3, 

D K OR L? 

JR Z, 

10 (0930) K TOKEN 


BIT 3,(IY+48) CAPS LOCK ON? 

RET NZ 
INC B 

RET NZ CAPS SHIFT ON 

ADD A, 32 LOWER CASE CONVERT 

RET 

ADD A, 165 KEYWORD CONVERT 
RET 

CP 48 0? 

RET C CHAR< 30H=UNPRINTABLE 
DEC C 

JP N, 987 CK FOR SYMBOL 
JP NZ, 25 (0957) OR GRAPHIC 
L-D HL, 630 TABLE 6 OFFSET 
BIT 5, B SYMBOL SHIFT? 

JR Z, 211 (0904) FETCH 

CP 56 8? 

JR NC, 7 (0960) 8 OR 9 
SUB 32 A-20H TO A 

INC B CAPS SHIFT? 

RET Z WITH PAPER COLOR 

ADD A, 8 

RET WITH INK COLOR 

SUB 54 A-36H TO A 

INC B 

RET Z BRIGHT 

ADD A, 254 

RET 

LD HL, 594 TABLE 4 OFFSET 


CP 

57 


9? 


JR 

z. 

186 

(0904) 

FETCH 

CP 

48 


0 ? 


JR 

z. 

182 

(0904) 

FETCH 


AND 7 DIGET 1-8 IN G MODE 
ADD A, 128 CONVERT TO GRAPHIC 
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0982 04 
0983 C 8 
0984 EE,OF 
0986 C9 

0987 04 CK FOR SYMBOL 

0988 C3 
0989 CB ,68 
0991 21,52,02 
0994 20,A4 
0996 D 6 ,10 
0998 FE,22 
1000 28,06 
1002 FE,20 

1004 CO 

1005 3E,5F 

1007 C9 

1008 3E,40 K at 

1010 C9 


INC B CAP SHIFT ? 

RErZ SHIFT OFF 1 ST 8 GRAPHICS 
XOR l'-' CONVERT I NVEF(SE GRAF'HIC 
RET 
INC B 

RET Z MODE K OR L 
BIT 5, B SYMBOL SHIFT? 

LD HL, 594 TABLE 4 OFFSET 
JR NZ, 164 (0904) FETCH 
SUB 16 CONVERT TO SYMBOL 

CP 34 "? 

JR Z, 6 (1008) K AT 
CP 32 SPACE? 

RET NZ 

LD A, 95 "_ M 

RET 

LD A, 64 @ 

RET 


SPEAKER ROUTINES 


BEEPER SUBROUT I ITE 

1011 F3 PAR-P(SOUND) 

1012 7D 

1013 CB,3D 
1015 CB,3D 

1017 2F 

1018 E6,03 

1020 4F 

1021 06,00 

1023 DD,21,OF,04 
1027 DD,09 
1029 3A,48,5C 
1032 E6,38 

1034 OF 

1035 OF 

1036 OF 

1037 F6,08 

1039 00 TIMING TABLE 

1040 00 

1041 00 

1042 04 

1043 OC 

1044 OD COUNT LOOP 

1045 20,FD 
1047 0E,3F 

1049 05 

1050 C2,14,04 
1053 EE,10 
1055 D3,FE 

1057 44 

1058 4F 

1059 CB,67 
1061 20,09 

1063 7A 

1064 B3 

1065 28,09 


DI 

LD A, L 
SRL A 
SRL A 
CPL 

AND 3 MASK 2 LOW BITS 
LD C, A 
LD B, O 

LD IX, 1039 TIMING TABLE 
ADD IX, BC 

LD A, (23624) BORDER 

AND 56 SAVE BITS 3,4 AND 5 

RRCA DIVIDE BY 8 

RRCA 

RRCA 

OR 3 (ADD 8 ) 

nop 

nop 

nop 

INC B 

INC C 

DEC C 

JR NZ, 253 (1044) COUNT LOOP 
LD C, 63 
DEC B 

JP NZ, 1044 COUNT LOOP 
XOR 16 FLIP BIT 4 

OUT (254), A 
LD B, H 
LD C, A 
BIT 4, A 

JR NZ, 9 (1072) BEEP AGAIN 
LD A, D 

OR E DE= 0 ? 

JR Z, 9 (1076) P-P CUT 
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1067 

79 



1068 

4D 



1069 

IB 



1070 

DD, 

E9 


1072 

4D 


BEEP AGAIN 

1073 

OC 



1074 

DD, 

E9 


1076 

FB 


F'-P OUT 

1077 

C9 




LD A, C 
LD C, L 
DEC DE 

JP (IX) (1039-1041) TIMING TABLE 
LD C, L 
INC C 

JP (IX) (1039-1041) TIMING TABLE 

El 

RET 


BEEP 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1089 

1090 

1091 

1092 

1093 

1096 

1097 

1098 
1100 
1 101 
1102 
1 103 
1104 
1 105 
1 106 

1107 

1108 
1110 
1111 
1112 
1114 
1 115 
1117 
1120 
1123 
1 125 
1126 
1128 
1 130 
1132 
1 133 
1136 
1139 

1142 

1143 

1144 

1145 


COMMAND ROUTINE 

EF BEEP 

31 

27 

CO 

03 

34 

EC,6C,98,IF,F5 

04 

A1 

OF 

38 

21,92,5C 

7E 

A7 

20, 5E 

OT 

4E 

97 

46 

78 

17 

9F 

B9 

20,54 

BE 

20, 50 
78 

C6,3C 
F2,63,04 
E2,AA,04 

06,FA START OCTAVE 6 

04 FIND OCTAVE 

D6, 06 

30, FB 

C6,0C 

C5 

21, AC,04 
CD,C5,37 
CD,73,37 
EF 

04 

38 

FI 


RST 40 FP CALC 
DUPLICATE 
I NT 

STK TO MEM O 
SUBTRACT 
SKT DATA 

EXP 6C,+6C,+98,+1F,+F5 

MULTIPLY 

SKT A 1 

ADD 

END FP 

LD HL, 23698 AT MEM 0 
LD A, (HL) 

AND A CLEAR CARRY 
JR NZ, 94 (1194) ERR B 
INC HL 
LD C, (HL) 

INC HL 
LD B, (HL) 

LD A, B 
RLA X2 

SBC A, A 
CP C 

JR NZ, 84 (1194) ERR B 
INC HL 
INC HL 
CP (HL) 

JR NZ, 80 (1194) ERR B 
ADD A, 60 

JR P, 1123 START OCTAVE 6 
JP PO, 1194 ERR B 
LD B, 250 
INC B 

SUB A, 12 (12 NOTES/OCTAE) 

JR NC, 251 (1125) FIND OCTAVE 

ADD A, 12 TOO FAR ADD BACK 1 OC 
PUSH BC 

LD HL, 1196 SEMI-TONE TABLE 

CALL 14277 LOC MEM 

CALL 14195 STK MEM 

RST 40 FP CALC 

STK TO MEM O 

END 

POP AF 
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1 146 

86 


ADD A, (HL) 

1 147 

77 


LD (HL), A 

1148 

EF 


RST 40 FF' CALC 

1 149 

CO 


STK TO MEM 0 

1150 

02 


EXCHANGE 

1151 

31 


DUPLICATE 

1152 

38 


END FP 

1153 

CD,IE,IF 


CALL 7966 FIX U1 

1156 

FE, OB 


CP 11 

1 158 

30, 22 


JR NC, 34 (1194) ERR B 

1160 

EF 


RST 40 FP CALC 

1 161 

EO 


GET MEM 0 

1162 

04 


MULTIPLY 

1 163 

EO 


GET MEM 0 

1 164 

34,80 


STK DATA 4 BYTES 

1 166 

43,55,9F,80 


EXP C3,+55,+9F,+80,(+00 

1170 

01 


EXCHANGE 

1 171 

05 


DIVIDE 

1172 

34 


STK DATA 

1173 

35,71,03 


EXP B5, +71, +03, (+00,+00 
END FP 

1176 

38 


1177 

CD,23,IF 


CALL 7971 FIX U1 

1180 

C5 


PUSH BC 

1181 

CD,23,IF 


CALL 7971 FIX U1 

1184 

El 


POP HL 

1185 

50 


LD D, B 

1186 

59 


LD E, C 

1187 

7A 


LD A, D 

1 188 

B3 


OR E DE=0? 

1189 

C8 


RET Z 

1 190 

IB 


DEC DE 

1191 

C3,F3,03 


JP 1011 PAP-P 

1194 

CF 

ERR B 

RST 8 ERROR 

1 195 

OA 


B INT OUT OF RANGE 

SEMI- 

■TONE TABLE (SCALE) 

NOTE 

FREQUENCY 

1196 

89,02,DO,12,86 

C 

261.63 

1201 

89, OA,97,60,75 

C# 

277.18 

1206 

89,12,D5,17,IF 

D 

293.66 

1211 

89,IB,90,41,02 

D# 

311.13 

1216 

89,24,DO,53,CA 

E 

329.63 

1221 

89,2E,9D,36,B1 

F 

349.23 

1226 

89,3B,FF,49,3E 

F# 

369.99 

1231 

89,43,FF,6A,73 

G 

392.00 

1236 

89,4F,A7,00,54 

G# 

415.30 

1241 

89,5C,00,00,00 

A 

440.00 

1246 

89,69,14,F6,24 

A# 

466.16 

1251 

89,76,FI,10,05 

B 493.88 

PROGRAM NAME 

PROGRAM NAME SUBROUTINE 

(NOT 

USED) 

1256 

CD,54,28 


CALL 10324 EXPRESSION 

1259 

•-■A, 3B, 5C 


LD A,(23611) FLAGS 

1262 

87 


ADD A, A 

1263 

FA,ED,18 


JP N, 7149 SYN ERR 
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1266 

El 

1267 

DO 

1268 

E5 

1269 

CD, AF 

1272 

62 

1273 

6 B 

1274 

CD 

1275 

F8 

1276 

09 

1277 

CB , FE 

1279 

C9 


PGP HL 

RET NC 
PUSH HL 

CALL 12207 GET FARM 

LD H, D 

LD L, E 

DEC C 

RET N 

ADD HL, BC 
SET 7, (HL) 

RET 


SCREEN AND PRINTER HANDLING ROUTINES 


PRINTOUT ROUTINE 

1280 CD,1A,06 BEND TV 

1283 FE,20 

1285 D2,FO,05 

1288 FE,OC 

1290 20,07 

1292 FD,CB,01,66 

1296 CA,FO,05 

1299 FE,06 SKIP PRINTER CK 

1301 38,69 

1303 FE,18 

1305 30,65 

1307 21,22,05 

1310 5F 

1311 16,00 

1313 19’ 

1314 5E 

1315 19 

1316 E5 

1317 C3,1 A,06 


CALL 1562 GET PRINT POSITION 
CP 32 SPACE? 

JP NC, 1520 SET TV CHAR 
CP 12 DELETE? 

JR N2, 7 (1299) SKIP PRINTER CK 
BIT 4, (IY+1) TO PRINTER? 

JP NZ, 1520 SET TV CHAR 
CP 6 

JR C, 105 (1408) PRINT ? 

CP 24 

JR NC, 101 (1408) PRINT ? 

LD HL, 1314 CONTROL CH TABLE OFFS 
LD E, A 
LD D, O 

ADD HL,DE POSN IN CONTR CH TABLE 
LD E, (HL) 

ADD HL, DE HL= JUMP ADDR 
PUSH HL 

JP 1562 GET PRINT POSN 


CONTROL CHARACTER TABLE 


1320 

4E 

1321 

57 

TOD 

10 

1323 

29 

1324 

54 

1325 

53 

1326 

52 

1327 

37 

1328 

50 

1329 

4F 

1330 

5F 

1331 

5E 

1332 

5D 

1333 

5C 

1334 

5B 

1335 

5A 

1336 

54 

1337 

53 


(CHAR 6-24) 

PRINT COMMA (1398) 
EDIT (1408) 

CURSOR LEFT (1338) 
CURSOR RIGHT (1364) 
CURSOR DOWN (1408) 
CURSOR UP (1408) 

DELETE (1408) 

ENTER (1382) 

NOT USED (1408) 

NOT USED (1408) 

INK CONTROL (1425) 
PAPER CONTROL (1425) 
FLASH CONTROL (1425) 
BRIGHT CONTROL (1425) 
INVERSE CONTROL (1425) 
OVER CONTROL (1425) 

AT CONTROL (1420) 

TAB CONTROL (1420) 


CURSOR LEFT SUBROUTINE 
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1338 

OC 


PRINT CUR LEFT 

1339 

3E, 

po 

(PR OVER BACK 1) 

1341 

B9 



1342 

20 „ 

1 1 


1344 

pn 

! JL_- q 

np 

01,4E 

1348 

20 , 

09 


1350 

04 



1351 

OE , 

02 


1353 

3E, 

19 


1355 

B8 



1356 

20, 

03 


1358 

05 



1359 

OE , 

21 

PR CUR L—2 

136 1 


1 A 

J. ~l q 

09 PR CUR L-3 


INC C 


B=LINE;C=COLUMN 

LD A, 
CP C 

34 

ii 

JR NZ, 

17 

(1361) PR CUR L- 

BIT 1 , 

(IY+l) TO PRINTER? 

JR NZ, 

9 

(1359) PR CUR L—2 

INC B 
LD C, 

■-j 

COLUMN 2 

LD A, 

c:; 


CP B 


19? 

JR NZ, 
DEC B 

3 

(1361) PR CUR L-3 

LD C, 

7 7 

SET LH COLUMN 

jp 232 

4 

STORE CUR POSN 


CURS 0 R RIGHT SUBR 0 DTINE 
1364 3A.91,5C PRINT CUR RIGHT 

1367 F5 (PRINT OVER 1 ) 

1368 FD,36,57,01 
1372 3E,20 

1374 CD,FO,05 
1377 FI 



5C 


LD A, 


(23 

CD 

7 > ! 

PUSH 

Ah 

r~- 

AVE 

LD ( I 

V 

i 

-j.. O -7 
• *_■ 

* 

1 

LD A, 


**r 

Cp 

ACE 

CALL 

i 

j. 

520 


SET 

POP AF 




LD (2 

“T 

/„ o 7 


A 

RET 






P FLAG 
P FLAG 
XOR CH ON 

TV CHAR 

RESTORE P FLAG 


NEW 

- 1 NE 

(C A K R1A G E 

1 "TOO 

FD, 

CB,01,4E 

1 70 *L 
I -w 



i 


1 700 

j— 

21 

a. — ‘ ‘ * 

iZ_ s 

1 O 1 

pn 

O «“> ~• ~7 

1394 

05 


1395 

C3 , 

1 4 , 09 


RE T UR N) BUBR0UTINE 

NEW LINE BIT 1 , (IY+ 1 ) TO PRINTER? 

JR NZ,2595 COPY 
LD C, 33 SET LH COLUMN 
CALL 1936 TV FULL? 

DEC B 

JP 2324 STORE TV CUR POSN 


P RIN'! COMMA SUBR0UTINE 


1398 

CD,1A,06 PRINT , 

(TAB 0 

1401 

79 OR 

TAB 16 

1 402 

3D 


14 O-i'* 

3D 


1404 

E 6 ? 1 0 


1406 

18,5 A 



CALL 1562 GET PRINT POSN 
LD A, C 
DEC A 
DEC A 

AND 16 SAVE BIT 4 
JR 90 (1498) FILL 


PRINT "?" ' 
1408 3E,3F 
1410 18,6C 


: UBR0UTINE (UNPRINTABLE 
PRINT ? LD 

JR 


CHARACTER) 
A, S3 "?" 
108 (1520) 


SEND TV 


CONTROL CHARACTERS WITH OPERANDS 


1 412 

11,9E,05 

CONTR OPERAND 

LD 

1415 

32,OF,5C 


LD 

1418 

18,08 


JR 

1420 

11,9E,05 

2 OPERANDS 

L.D 

1423 

18, 03 


JR 

1425 

11,9E,05 

1 OPERAND 

LD 




INK, 

1428 

32,OE,5C 

PO—TV —1 

LD 

1431 

2A,51,5C 

CHANGE 

LD 


ROUTINE 

DE, 1438 PQ-CONT 
(23567), A SAVE A HERE 
11, (1431) CHANGE 

DE, 1438 PO-CONT AT/TAB ENTER 
3 (1428) PO—TV —1 
DE, 1438 PO-CONT (ENTER FOR 
PAPER, BRIGHT, INVERSE Z< OVER) 
(23566), A SAVE A HERE 
(HL), (23633) CURrent CHanneL 
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1434 

73 


1 435 

n*r 


1436 

72 


1437 

C9 


1438 

11,00,05 

PO-CONT 

1441 

CD,97,05 


1444 

2A,0E,5C 


1447 

57 


1448 

7D 


1449 

FE, 16 


1451 

DA,BB,23 


1454 

20 , 29 


1456 

44 


1457 

4A 


1458 

3E, IF 


1 460 

91 


1461 

38, OC 


1463 

C6, 02 


1465 

4F 


1466 

FD,CB,01,4E 


1470 

20 , 16 


1472 

3E, 16 

CK LINE 

1474 

90 


1475 

DA,29,IF 

ERR B 

1478 

3C 


1479 

47 


1480 

04 


1481 

FD,CB,02,46 


1485 

C2,90,07 


1488 

FD,BE,31 


1491 

DA,Cl,07 


1494 

C3,14,09 

AT SET 

1497 

7C 

CK TAB 

1498 

CD,1 A,06 

FILL 

1501 

81 


1502 

3D 


1503 

E6, IF 


1505 

CS 


1506 

57 


1507 

FD,CB,01, C6 


1511 

3E, 20 

PUT SPACE 

1513 

CD,76,07 


1516 

15 


1517 

20, F8 


1519 

C9 



LD (HL), E 
INC HL 
LD (HL), D 
RET 

LD DE, 1280 SENT TV 
CALL 1431 CHANGE 
LD HL, (23566) TV DATA 
LD D, A 
LD A, L 
CP 22 

JP C 9147 TEMP TV COLOR 
JR N2, 41 (1497) CK TAB 

LD B, H CK AT ARGUMENTS 
LD C, D 

LD A, 31 COLUMN MAX 
SUB C 

JR C, 12 (1475) ERR B 
ADD A, 2 
LD C, A 

BIT 1, (IY+1) COPY? 

JR N2, 22 (1494) AT SET 
LD A, 22 LINE MAX 
SUB B 

JP C, 7977 ERR B INT OUT OF RNG 
INC A 
LD B, A 
INC B 

BIT 0, (IY+2) LOWER SCREEN ? 

JP N2, 1936 TV FULL? 

CP (IY+49) DF Si2e 
JP C, 1985 ERR 5 OUT OF SCREEN 
JP 2324 SET TV CHAR 
LD A, H 

CALL 1562 LD TV CHAR 
ADD A, C 
DEC A 

AND 31 MASK 5 LOW BITS 
RET 2 
LD D, A 

SET 0, (IY+1) SUPRESS SPACE ON 

LD A, 32 SPACE 
CALL 1910 PRINT TV2 
DEC D 

JR N2, 248 (1511) PUT SPACE 
RET 


PRINTABLE CHARACTER CODES ROUTINE 


1520 CD,3B,06 SET TV CHAR 

1523 FD,CB,01,4E POSN STORE 

1527 20,1A STK POSN UPPER 

1529 FD,CB,02,46 

1533 20,08 

1535 ED,43,88,5C 

1539 22,84,5C 

1542 C9 


CALL 1595 SORT CHAR #’S 
BIT 1, (IY+1) TO PRINTER? 

JR N2, 26 (1555) STK PRINTER POSN 
BIT 0, (IY+2) LOWER SCREEN? 

JR N2, 8 (1543) STK POSN LOWER 
LD (23688), BC S POSN 
LD (23684)N HL DF-CC 
RET 
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1543 

ED,43,8A,5C 

STK POSN LOW 

1547 

ED,43,82,5C 


1551 

22,86,5C 


1554 

C9 


1555 

FD,71,45 STfc 

: POSN PRNTR 

1558 

2A,86,5C 


1561 

C9 


POSITION FETCH SUBROUTINE 

1562 

FD,CB,01,4E 

GET PR POSN 

1566 

20 , 14 


1568 

ED,4B,88,5C 


1572 

2A,84,5C 


1575 

FD,CB,02,46 



1579 C8 

1580 ED,4B,8A,5C LD POSN DOT 
1584 2A,86,5C 

1587 C9 


15SS 

FD,4E,45 

LD PRINTER POSN 

1591 

2A,86,5C 


1594 

C9 


PRINT ANY CHARACTER SUBROUTINE 

1595 

FE, CO 

SORT CHF: #’S 

1597 

20, 04 


1599 

3E, 7A 


1601 

18,51 


1603 

FE, 7C 

NOT DELETE 

1605 

28, 4D 


1607 

FE, 7E 


1609 

28, 49 


161 1 

FE, 7B 


1613 

38, OA 


1615 

FE, 80 


1617 

30, 06 


1619 

FD,CB,01, 

66 

1623 

28, 3B 


1625 

FE, 80 

TEST GRAPHIC 

1627 

38, 3D 


1629 

FE, 90 


1631 

30, 26 


1633 

47 

DO GRAPHIC 

1634 

CD,6D,06 


1637 

CD,1A,06 


1640 

11,92,5C 


1643 

18,47 


1645 

21,92,5C 

GEN GRAP PIX 

1648 

CD,73,06 


1651 

CB,ie' 

GGP-2 

1653 

9F 


1654 

E6, OF 


1656 

4F 


1657 

CB, 18 


1659 

9F 


1660 

E6, FO 



LD (23690),BC 

S POSN-L 

LD (23682), BC 

ECHO E 

LD (23686), HL 

DF-CCL 

RET 


LD (IY+69), C P 

POSN 

l_D HL, (23680) 

PR-CC 

RET 



BIT 1, 
JR NZ, 
LD BC, 
LD HL, 
BIT O, 
RET Z' 


(IY+1) TO PRINTER? 

20 (1588) LD PRINTER 
(23688) S POSN 
(23684) DF-CC 
(IY+2) LOWER SCREEN? 


LD BC, (23690) S POSN L 
LD HL, (23686) DF-CCL 
RET 


L.D C, (IY+69) P POSN 
LD HL, (23689) PR-CC 
RET 


POSN 


CP 12 DELETE? 

JR NZ, 4 (1603) NOT DELETE 
LD A, 122 DELETE TOKEN 
JR 81 (1684) PR TOKEN 

CP 124 STICK? 

JR Z, 77 (1684) F‘R TOKEN 
CP 126 FREE? 

JR Z, 73 (1684) PR TOKEN 
CP 123 

JR C, 10 (1625) TEST GRAPHIC 
CP 128 

JR NC, 6 (1625) TEST GRAPHIC 
BIT 4, (IY+1) TOKEN ON? 

JR Z, 59 (1684) PR TOKEN 
CP 128 

JR C, 61 (1690) NORMAL CHAR 

CP 144 UDG? 

JR NC, 38 (1671) UDG OR TOKEN 
LD B, A 

CALL 1645 GEN GRAP PIX 

CALL 1562 GET PR POSN 

LD DE, 23698 MEM BOTTOM 

JR 71, (1716) PRINT TV 

LD HL, 23698 MEM BOTTOM (TEMP STR 

CALL 1651 GGF'—2 DO IT TWICE 

RR B 

SBC A, A 255 IF CARRY, ELSE 0 
AND 15 SAVE LOW NIBBLE 
LD C, A SAVE IN C 

RR B 

SBC A, A 255 IF CARRY, ELSE 0 
AND 240 SAVE HI NIBBLE 






OR C ADD LOW NIBBLE 

LD C, 4 

LD (HL), A 

INC HL 

DEC C 

JR NZ, 251 (1665) 4 PIXS 

RET 

SUB 165 TOKEN? 

JR NC, 9 (16S4) PR TOKEN 
ADD A, 21 GET BACK UDC - 144 
PUSH BC 

LD BC, (23675) UDG PIX TABLE 
JR 11, (1693) SAVE POSN 

CALL 1861 GET TOKEN 
JP 1562 GET PR POSN 
PUSH BC 

LD BC, (23606) CHAR PIX TABLE 
EX DE, HL 

LD HL, 23611 AT FLAGS 

RES 0, (HL) SUPRESS SPACE OFF 

CP 32 SPACE? 

JR NZ, 2 (1707) GET CHAR PIX 
SET 0, (HL) SUPRESS SPACE ON 
LD H, 0 
LD L, A 

ADD HL, HL X8 
ADD HL, HL 
ADD HL, HL 

ADD HL, BC HL AT FIRST PIXEL 
POP BC 
EX DE, HL 


PRINT ALL CHARACTERS SUBROUT 

1716 79 PRINT TV 

1717 3D 

1718 3E,21 
1720 20,OE 

1722 05 

1723 4F 

1724 FD,CB,01,4E 
1728 28,06 

1730 D5 

1731 CD,23,OA 

1734 D1 

1735 79 

1736 B9 SAME LINE? 

1737 D5 

1738 CC,90,07 

1741 D1 

1742 C5 

1743 E5 

1744 3A,91,5C CHECK FOR OVER 
1747 06,FF 

1749 IF 

1750 38,01 


LD A, C 
DEC A 
LD A, 33 

JR NZ, 14 (1736) SAME LINE? 
DEC B 
LD C, A 

BIT 1, (IY+1) COPY? 

JR Z, 6 (1736) SAME LINE? 
PUSH DE 

CALL 2595 COPY 
POP DE 
LD A, C 
CP C 
PUSH DE 

CALL Z, 1936 TV FULL? 

POP DE 
PUSH BC 
PUSH HL 

LD A, (23697) P FLAG 
LD B, 255 
RR A 

JR C, 1 (1753) CKECK INVERSE 




17 


INC B B=0 IF NOT OVER 
_ RR A 
RR A 

SBC A, A 255 IF ON, 0 IF OFF 
LD C, A 
LD A, 8 
AND A 

BIT 1 , (IY+ 1 ) COPY? 

JR 2, 5 (1771) GET POSN 

SET 1, (IY+48) PNTR BUF NOT EMPTY 

SCF 

EX DE, HL 

EX AF, AF’ SAVE PRINT FLAG 

LD A, (DE) GET PIX 

AND B INVERT IF OVER ON 

XOR <HK) ADD TV PIXEL AND INVERT 

XOR C INVERT AGAIN IF INVERT ON 

LD (DE) , A PRINT IT 

EX AF, AF’ GET PRINT FLAG 

JR C, 19 (1800) PRINTER 

INC D 

INC HL 

DEC A 

JR NZ, 242 (1772) PR TO SCREEN 
EX DE, HL 
DEC H 

BIT 1 , (IY+ 1 ) COPY? 

CALL Z, 1808 SET ATTR BYTE 

POP HL 

POP BC 

DEC C 

INC HL 

RET 

EX AF, AF-' SAVE PRINTER FLAG 
LD A, 32 INCREMENT 
ADD A, E 
LD E, A 
EX AF, AF’ 

JR 230 (1782) NEXT PIX 


1752 04 

1753 IF CHECK INVERSE 

1754 IF 

1755 9F 

1756 4F 

1757 3E,08 

1759 A7 

1760 FD,CB,01,4E 
1764 28,05 

1766 FD,CB,30,CE 

1770 37 

1771 EB GET POSN 

1772 08 PRINT CHAR TO SCR 

1773 1A 

1774 AO 

1775 AE 

1776 A9 

1777 12 

1778 08 

1779 38,13 

1781 14 

1782 23 NEXT PIX 

1783 3D 

1784 20,F2 

1786 EB 

1787 25 

1788 FD,CB,01,4E 

1792 CC,10,07 CALL BYTE 

1795 El 

1796 Cl 

1797 OD 

1798 23 

1799 C9 

1800 08 PRINTER 

1801 3E,20 

1803 83 

1804 5F 

1805 08 

1806 18,E6 

SET ATTRIBUTE BYTE SUBROUTINE 

1808 7C SET ATTR BYTE 

1809 OF 

1810 OF 

1811 OF 

1812 E6,03 
1814 F6,58 

1816 67 

1817 ED,5B,8F,5C CHECK ATTR 

1821 7E 

1822 AB 

1823 A2 

1824 AB 

1825 FE,CB,57,76 
1829 28,08 


LD A, H 

RRC A GET ATTR ADDR 
RRC A 
RRC A 

AND 3 SAVE 2 LOW BITS 
OR 88 ADD 88 
LD H, A 

LD DE, (23695) ATTR T MASK T 
LD A, (HL) GET OLD ATTR 
XOR E CHANGE IT TO NEW 
AND D 
XOR E 

BIT 6 , (IY+87) T PAPER? 

JR Z, 8 (1839) SKIP DEFAULT -1 
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1831 E6,C7 
1833 CB,57 - 

1835 20,02 
1837 EE,38 
1839 FD,CB,57, 
1843 28,08 
1845 E6,F8 
1847 CB,6F 
1849 20,02 
1851 EE,07 

1853 77 SK 

1854 C9 


DEFAULT-1 
SKIP DEFLT-1 


DEFAULT-2 
P DEFAULT-2 


AND 199 SAVE 
BIT 2, A 
JR NZ, 2 (1839 
XOR 56 

BIT 4, (IY+87) 

JR Z, 8 (1853) 
AND 248 SAVE 
BIT 5, A 
JR NZ, 2 (1853 
XOR 7 

LD (HL>, A 
RET 


ALL BUT PAPER 
SKIP DEFAULT-1 
T INK? 

SKIP DEFAULT-2 
ALL BUT INK 

SKIP DEFAULT-2 


MESSAGE PRINTING SUBROUTINE 


1855 E5 PUT MES 

1856 26,00 
1858 E3 

1S59 18,0A 

1861 11,98,00 GET TOKEN 
1864 FE,5B 
1866 38,02 
1868 D6,IF 

1870 F5 SAVE CHAR # 

1871 CD,7C,07 TOKEN TABLE 
1374 38,09 

1876 3E,20 
1878 FD,CB,01,46 
1382 CC,7C,07 

1885 1A EACH CHAR CODE 

1886 E6,7F 
1888 CD,76,07 

1891 1A 

1892 13 

1893 87 

1894 30,F5 

1896 Dl' 

1897 FE,48 
1899 28,03 
1901 FE,82 

1903 D8 

1904 7A MESS RND, INKEY* OR PI 

1905 FE,03 

1907 DS 

1908 3E,20 


PUSH HL (PRINK TOKEN OR MESSAGE) 
LD H, O 
EX (SP), HL 

JR 10 (1871) TOKEN TABLE 
LD DE, 152 TOKEN SPELL TABLE 
CP 91 C? 

JR C, 2 (1870) SAVE CHAR # 

SUB 31 

PUSH AF SAVE TOKEN -31 

CALL 1916 TABLE SEARCH 

JR C, 9 (1885) EACH CHAR CODE 

LD A, 32 SPACE 

BIT O, (IY+l) LPRINT? 

CALL Z, 1910 PRINTOUT SAVE 

LD A, (DE) GET CHAR 

AND 127 CLEAR BIT 7(IF LAST CHAR) 

CALL 1910 PRINTOUT SAVE 

LD A, (DE) 

INC DE 

ADD A, A CHECK END OF MESS 
JR NZ, 245 (1885) EACH CHAR CODE 
POP DE 

CP 72 *? (CODES ARE 2X) 

JR Z, 3 (1904) MESS RND,INKEY* 

CP 130 A? OR PI 

RET C LESS THAN A 
LD A, D 
CP 3 
RET C 

LD A, 32 NEED SPACE ON END 


PRINTOUT SAVE ROUTINE 

1910 D5 PRINTOUT SAVE 

1911 D9 

1912 D7 

1913 D9 

1914 Dl 

1915 C9 


PUSH DE 

EXX SAVE REGISTERS 
RST 16 PRINT CHAR 
EXX GET REGISTERS 
POP DE 
RET 


TABLE SERARCH ROUTINE 
1916 F5 TABLE SEARCH 


PUSH AF 
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1917 

EB 


1918 

3C 


1919 

CB , 7E 

‘ ""STEP' 

192 1 

-r 


1922 

23, FB 


1924 

3D 


1925 

20 H F 8 


1927 

EB TOKEN 

ADDR FOUND 

i 99 a 

FI 


1 929 

FE, 20 


1 931 

D 8 


1932 

1A 


1933 

06 , 41 


1935 

n 0 


TCCT 

! t~- ! 

FOR SCROLL ; 

SUBROUT 1 NE 

1936 

FD,CB,01 ? 4E 

TV FULL? 

1940 

CO 


1941 

11,14,09 


1944 

05 


1945 

70 


1946 

pn pp ;V~ /! /. 


1950 

C 2 , 3D , 08 


1953 

FD , BE « 31 


1956 

38, IB 


j Qc;c, 

CO 


1959 

FD , CB, 02 , 66 


•j Oi7 

28 , 16 


1 O i- *=. 

FD,5E,2D 


i O L. x p 

ID 


1969 

r> 0 «=* / '- 

M 


1971 

3E , 00 


1973 

CD,30,12 


1976 

ED ? 7B ? 3F,5C 


1980 

Pf; fX- f-.O Ai 


i oo/i 

C9 


1985 

CF 

ERR 5 

1986 

04 


1987 

FD,35,52 

SCROLL-2 

1990 

20,45' 


1992 

3E, IS 


1994 

90 


1995 

32,SC,5C 


1 000 

-L -• '-J 

28,SF,5C 


2001 

E5 


2002 

•3A, 71,5C 


2005 

FH 


2006 

3E, FD 


2008 

CD,30,12 


201 1 

AF 


2012 

11,33,OS 


2015 

CD,3F,07 


2018 

FD,CB,02,EE 


2f)?9 

21,3B,5C 


2025 

CB, D3 



EX DE, HL 
INC A COUNT 
BIT 7, (HL) 
INC HL 
•JR Z, 251 ( 

DEC A 

JR NZ, 248 
EX DE, HL 
POP AF 
CP 32 

RET C 1ST 
LD A, (DE) 

RET 


BIT 1, (IY+1) COPY? 

RET NZ USING PRINTER 
LD DE, 2324 SET TV CHAR 
PUSH DE 
LD A, B 


BIT 

O 

t T V 

«< \ X i 

-}- '> 

LONER 

SCREEN? 

JR 

NZ 

, 210 

>9 

SCROLL 

— • / L 

■*T 

OF* 

< I 

y -f- 4 9 ) 

DF 

Si 2e 


JR 

1...- , 

•“ “7 1 

i 

;> ERR 


RET 

N 

L 




BIT 

4 

, (IV 

4-2 ) 

AUTO 

L I ST? 

JR 

z. 

22 ( 

1 987 

> SCRG 

1! 

LD 

E, 

< IY+4 

5) B 

; REG L 

. INE COUNT 

DEC 

E 





JR 

z, 

90 ( 

2061 

) SCROLL LIST 

LD i 

A, 

0 




CAL’ 

1 

L. 

4656 

SEL 

EOT CH 

AN 

LD : 

BP 

/ 

, \ j- 

615) 

LIST 

SP RETURN 

RES 

/! 

"T 

, (IV 

+ 2 ) 

AUTO L 

1ST OFF 


RET 

RST S ERROR 
5 OUT OF SCREEN 
DEC (IY+82) SCROLL COUNT 
JR NZ, 69 (2061) SCROLL LIST 
LD A, 24 MAX LINE COUNT 
SUB B . j 

LD (23692), A SCROLL COUNT 
LD HL, (23695) ATTR T, MASK T 
PUSH HL 

LD A, (23697) P FLAG 
PUSH AF 

LD A, 253 OPEN CHAN K 

CALL 4656 SELECT CHAN 

XOR AF RES A=P FLAG =MESS 0 

LD DE, 2099 SCROLL? MESSAGE 

CALL 1855 PUT MESSAGE 

SET 5, (IY+2) C-LHS WHEN KEYHIT 

LD HL. 23611 AT FLAGS 

SET 3, (HL) L MODE 


LAST BYTE? 

1919) STEP 
COUNT 

(1919) STEP (NOT YET) 


32 TOKENS REQ SPACE 


20 


2027 

CB, AE 

2029 

D9 

2030 

CD,CF,11 

2033 

D9 

2034 

FE, 20 

2036 

28, 45 

2038 

FE, E2 

2040 

28,41 

2042 

FE, 20 

2044 

FE, 6E 

2046 

28,3B 

2048 

3E, FE 

2050 

CD,30,12 

2053 

FI 

2054 

32,91,5C 

2057 

El 

2058 

22,8F,5C 

2061 

CD,39,09 

2064 

FD,46,31 

2067 

04 

2068 

OE, 21 

2070 

C5 

2071 

CD,D6,09 

2074 

7C 

2075 

OF 

2076 

OF 

2077 

OF 

2078 

E6,03 

2080 

F6,58 

2082 

67 

2083 

11,EO,5A 

2086 

1A 

2087 

4E 

2088 

06,20 

2090 

eb’ 

2091 

12 

2092 

71 

2093 

13 

2094 

23 

2095 

10, FA 

2097 

Cl 

2098 

C9 


SET 5, (HL) CLEAR KEYHIT 

--- -EXX 

CALL 4559 READ CHAR 
EXX 

CP 32, BREAK? 

JR Z, 69 (2107) ERR D 
CP 226 STOP? 

JR Z, 65 (2107) ERR D 
OR 32 ADD 32 IF ABLE N=n 
CP 110 n? 

JR Z, 59 (2107) ERR D 
LD A, 254 CHAN S 

CALL 4656 SELECT CHAN 

POP AF 

LD (23697), A RESTORE P FLAG 
POP HL 

LD (23695), HL RESTOR T ATTR/MSK 
SCROLL LIST CALL 2361 SCROLL LOWER 
LD B, (IY+49) DF SiZe 
INC B 
LD C, 33 
PUSH BC 

CALL 2518 FIND CL ADDR 
DO ATTR LD A, H 
RRC A 
RRC A 
RRC A 
AND 3 
OR 88 
LD H, A 

LD DE, 23264 ATTR ADDR BOTTOM LN 
LD A, (DE) 

LD C, (HL.) 

LD B, 32 
EX DE, HL 

SCROLL LINE LD (DE), A 
LD (HL)’ C 
INC DE 
INC HL 

DJNZ, 250 (2091) SCROLL LINE 

POP BC 

RET 


SCROLL MESSAGE 

2099 80,73,63,72,6F,6F,BF MARKER + scroll 


ERROR D 

2107 CF 

2108 OC 


RST 8 ERROR 
D BREAK—CONT repeats 


SCROLL LOWER SCREEN 

2109 FE,02 SCROLL-4 

2111 38,80 

2113 FD,86,31 

2116 D6,19 


CP 2 

JR C, 128 (1985) ERR 5 
ADD A, (IY+49) DF SiZe 
SUB 25 


21 


2118 DO 


RET NC 

2119 ED,44 


NEG,..„ 

2121 C5 


PUSH BC 

2122 47 


LD B, A 

2123 2A,8F,5C 


LD HL, (23695) ATTR T, MASK T 

2126 E5 


PUSH HL SAVE THEM 

2127 2A,91,5C 


LD HL, (23697) P FLAG /MEM BOTTOM 

2130 E5 


PUSH HL SAVE P FLAG 

2131 CD,88,08 


CALL 2184 TEMP R ATTR 

2134 78 


LD A, B 

n i tit i— cr 

xil ovj r u 

SCR0LL-4A 

PUSH AF SAVE COUNT 

2136 21,6B,5C 


LD HL, 23659 AT DF SiZe 

2139 46 


LD B, (HL) 

2140 78 


LD A, B 

2141 3C 


INC C 

2142 71 


LD (HL), A 

2143 21,89,5C 


LD HL, 23689 AT LINE # 

2146 BE 


CP (HL) 

2147 38,03 


JR C, 3 (2152) SCR0LL-4B 

2149 34 


INC (HL) 

2150 06,18 


LD B, 24 

2152 CD,3B,09 

SCR0LL-4B 

CALL 2363 SCROLL LINES 

2155 FI 


POP AF GET SCROLL # 

2156 3D 


DEC A 

2157 20,E8 


JR NZ, 232 (2135) SCR0LL-4A 

2159 El 


POP HL 

2160 FD,75,57 


LD (IY+S7), L RESTORE P FLAG 

2163 El 


POP HL 

2164 22,8F,5C 


LD (23695), HL RESTORE ATTR T/MSK 

2167 ED,4B,88,5C 


LD BC, (23688) S POSN 

2171 FD,CB,02,86 


RES 0, (IY+2) LOWER SCREEN OFF 

2175 CD,14,09' 


CALL 2324 STORE TV CUR 

2178 FD,BC,02,86 


SET 0, (IY+2) LOWER SCREEN ON 

2182 Cl 


POP BC 

2183 C9 


RET 

TEMPORARY COLOR 

ITEMS SUBROUTINE 

2184 AF 

TEMP R-ATTR 

XOR A CLEAR A 

2185 2A,8D,5C 


LD HL, (23693) ATTR P/MASK P 

2188 FD,CB,02,46 


BIT 0, (IY+2) LOWER SCREEN? 

2192 28,04 


JR Z, 4 (2198) UPPER 

2194 67' 


LD H, A 

2195 FD,6E,OE 


LD L, (IY+14) BORDER COLOR 

2198 22,8F,5C 

UPPER- 

LD (23695), HL T ATTR/T MASK 

2201 21,91,5C 


LD HL, 23697 P FLAG 

2204 20,02 


JRNZ, 2 (2208) LOWER 

2206 7E 


LD A, (HL) P FLAG TO A 

2207 OF 


RRC A 

2208 AE 

LOWER 

XOR (HL) 

2209 E6,55 


AND 85 

2211 AE 


XOR (HL) 

2212 77 


LD (HL), A NEW P FLAG 

2213 C9 


RET 


CLS COMMAND ROUTINE 



ro ro ro 


22 


2214 

CD,EA,08 


K-CLS 

CALL 2282 CLS 

2217 

21,3C,5C 


CL-LHS 

LD.HL, 23612 AT-TV FLAGS 

2220 

CB, AE 



RES 5, (HL) CLS—L OFF 

nono 

CB,C 6 



SET 0, (HL) LOWER SCREEN 


CD,88,08 



CALL 2184 TEMP R-ATTR 

f-y /--> /~j *^r 

FD,46,31 



LD B, (IY+49) DF SiZe 

2230 

CD,7F,09 



CALL 2431 CLS—LINES 

OO'TT 

21 ,CO,5A 



LD HL, 23232 ATTR ADDR LINE 22 

2236 

3A,8D,5C 



LD A, (23693) ATTR P 

O 7 ? "T q 

05 



DEC B 

2240 

18,07 



JR 7 (2249) CLS-3 


0 E, 20 


CLS -1 

LD C, 32 CHARS/LINE 

2244 

2B 


CLS-2 

DEC HL 

2245 

77 



LD (HL), A 

2246 

0D 



DEC C 

2247 

20, FB 



JRNZ, 251 (2244) CLS-2 

2249 

10, F7 


CLS-3 

DJNZ, 247 (2242) CLS-1 

2251 

FD,36,31, 

02 


LD (IY+49), 2 DF SiZe= 2 RESET 

2255 

3E, FD 


CL-CHAN 

LD A, 253 CHAN K 

2257 

CD,30,12 



CALL 4656 SELECT CHAN 

2260 

2A,51,5C 



LD HL, (23633) CURrent CHanneL 

2263 

11 , 00 ,05 



LD DE, 1280 SEND TV 

2266 

A7 



AND A 

2267 

73 

CL 

-CHAN -1 

LD (HL), E 

226S 

23 



INC HL 

2269 

72 



LD (HL), D 

2270 

23 



INC HL 

2271 

11,0E,0C 



LD DE, 3086 INPUT KEYBOARD 

2274 

3F 



CCF 

2275 

38, F 6 



JR C, 246 (2267) CL-CHAN-1 

2277 

01,21,17 



LD BC, 5921 LINE 23 ADDR 

2280 

18,2A 



JR 42 (2324) STORE CUR 

CLEARING FULL 

SCREEN 

SUBROUTINE 

79Q9 

21 , 00,00 


CLS 

LD HL, 0 

2285 

22,7D,5C 



LD (23677), HL RESET COORDINATES 

2288 

FD,CB,30, 

86 


RES 0, (IY+48) LOWER SCREEN ON 


CD,CF,08 



CALL 2255 CL-CHAN 

2295 

3E,FE 



LD A, 254 OPEN CHAN S 

990?y 

CD,30,12 



CALL 4656 SELECT CHAN 

2300 

CD,88,08 



CALL 2184 TEMP R-ATTR 

2303 

06, 18 



LD B, 24 MAX LINES 

2305 

CD,7F,09 



CALL 2431 CLS—LINES 

2308 

2A,51,5C 



LD HL, (23633) CURrent CHanneL 

2311 

11,00,05 



LD DE, 1280 SEND TV 

2314 

73 



LD (HL), E 

2315 

9 ? "7 



INC HL 

2316 

72 



LD (HL), D 

2317 

FD,36,52, 

01 


LD (IY+82), 1 SCR CT 

2321 

01,21,18 



LD BC, 6177 FULL SCR LENGTH 

CL-SET ROUTINE 



2324 

21,00,5B 

STORE 

TV CUR 

LD HL, 23296 PRINTER BUFF 

2327 

FD,CB,01, 

4E 


BIT 1 , (IY+1) COPY? 

2331 

20 , 12 



JR NZ, 18 (2351) CL—SET-2 
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2333 78 

,2334 FD, CB, 02, 46 
2338 28,05 
234O FD,06,31 
2343 D6, is' 

2345 C5 CL—SET—1 

2346 47 

2347 CD,D6,09 

2350 Cl 

2351 3E,21 CL—SET—2 

2353 91 

2354 5F 

2355 16,00 

2357 19 

2358 C3,F3,05 

SCROLLING SUBROUTINE 


2361 

06, 17 

2363 

CD,D6,09 

2366 

OE, 08 

2368 

C5 

2369 

E5 

2370 

78 


E6, 07 

2373 

78 

2374 

20, OC 

2376 

EB 

2377 

21 ,EO,F8 

2380 

19 

2381 

EB 

2382 

01 ,20,00 

2385 

3D 

2386 

ED, BO 

2388 

EB 

2389 

21,EO,FF 

239' ? 

19 

2393 

EB 

2394 

47 

2395 

E6,07 

2397 

OF 

2398 

OF 

2399 

OF 

2400 

4F 

2401 

78 

2402 

06,00 

2404 

ED, BO 

2406 

06,07 

2408 

09 

2409 

E6,F8 

2411 

20, DB 

2413 

El 

2414 

24 

2415 

Cl 

2416 

OD 

2417 

20, CD 


CL-SCROLL-ALL 

CL-SCROLL 

CL—SCR—1 

SCR—2 


LD A, B 

BIT O, (IY+2) LOWER SCREEN? 
JR Z, 5 (2345) CL-SET-1 
ADD A, (IY+49) DF SiZe 
SUB 24 MAX LINES 
PUSH BC SAVE LINE/COLUMN 
LD B, A 

CALL 2518 FIND CL ADDR 

POP BC GET LINE/COLUMN 

LD A, 33 

SUB C 

LD E, A 

LD D, O 

ADD HL, DE 

JP 1523 STORE TV CUR 


LD B, 23 ENTRY POINT AFTER SCROLL 
CALL 2518 FIND CL ADDR 
LD C, 8 8 PIXEL LINES 

PUSH BC 

PUSH HL SAVE START ADDR 
LD A, B 
AND 7 
LD A, B 

JR NZ, 12 (2388) SCR-3 
EX DE, HL 

LD HL, 63712 = -1824=SKIP AMT 
ADD HL, DE OVER 1/3 SCR BORDER 
EX DE, HL 

LD BC, 32 LINE LENGTH 

DEC A 

LDIR 

EX DE, HL 

LD HL, 65504 = -32 
ADD HL, DE 
EX DE, HL 

LD B, A SAVE LINE # IN B 
AND 7 

RRC A DIVIDE BY 8 
RRC A 
RRC A 

LD C, A CHAR TOTAL TO C 
LD A, B GET LINE # 

LD B, 0 
LDIR 

LD B, 7 JUMP ACROSSED 1/3 BRDR 
ADD HL, BC 
AND 248 

JR NZ, 219 (2376) SCR-2 
POP HL 
INC H 
POP BC 

DEC C DEC COUNT 

JR NZ, 205 (2368) CL-SCR-1 



24 


2419 CD,03,09 
2422 21,E0,FF 

2425 19 

2426 EB 

2427 ED,BO 
2429 06,01 


CALL 2499 CL-ATTR 
LD HL, 65504 = -32 
ADD HL, DE 
EX DE, HL 

LDIR SCROLL ATTR 

LD B, 1 


CLEAR LINES SUBROUTINE 

2431 C5 CLS—LINES 

2432 CD,D6,09 
2435 OE,08 

2437 C5 CL—LINE—1 

2438 E5 

2439 78 


2440 

E6, 07 

2442 

OF 

2443 

OF 

2444 

OF 

2445 

4F 

2446 

78 

2447 

06, 00 

2449 

OD 

2450 

54 

2451 

5D 

2452 

36, 00 

2454 

13 

2455 

ED, BO 

2457 

11,01,07 

2460 

19 

2461 

3D 

2462 

E6,F8 

2464 

47 

2465 

20, E5 

2467 

El 

2468 

24 

2469 

Cl 

2470 

OD 

2471 

20, DC 

2473 

CD,C3,09 

2476 

62 

2477 

6B 

2478 

13 

2479 

3A,8D,5C 

2482 

FD,CB,02 

2486 

28,03 

2488 

3A,4B,5C 

2491 

77 

2492 

OB 

2493 

ED, BO 

2495 

Cl 

2496 

OE, 21 

2498 

C9 


46 


CL-LINE—2 


CL-UPPER 


PUSH BC SAVE LINE # 

CALL 2518 FIND CL LINE 

LD C, 8 8 LINES OF PIXELS 

PUSH BC 

PUSH HL 

LD A, B 

AND 7 

RRC A DIVIDE BY 8 
RRC A 
RRC A 
LD C, A 

LD A, B GET LINE # 

L_D B, O 
DEC C 
LD D, H 

LD E, L DE TO 1ST CHAR 
LD (HL), 0 CLEAR BYTE 
INC DE 
LDIR 

LD DE, 1793 NEXT 1/3 JUMP 
ADD HL, DE 
DEC A 

AND 248 DISCARD EXTRA LINES BUT 

LD B, A PASS TO B 

JR NZ, 229 (2440) CL-LINE-2 

POP HL 

INC H 

POP BC GET COUNT 

DEC C DECREASE PIX LINE COUNT 

JR NZ, 220 (2437) CL-LINE-1 

CALL 2499 CLEAR ATTR 

LD H, D 

LD L, E HL AT 1ST ATTR AI)DR 
INC DE DE AT 2ND ATTR ADDR 
LD A, (23693) ATTR P 
BIT O, (IY+2) LOWER SCREEN? 

JR Z, 3 (2491) CL-UPPER 

LD A, (23624) BORDER COLOR 

LD (HL), A 

DEC BC 

LDIR 

POP BC 

LD C, 33 SET COLUMN LEFT 
RET 


CLEAR ATTR SUBROUTINE 
2499 7C CLEAR-ATTR 


LD A, H GET HI BYTE 
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2500 

2501 

2502 

2503 

2504 

2506 

2507 

2508 

2509 

2510 
251 1 

2512 

2513 

2514 

2515 

2516 

2517 


OF 

OF 

OF 

3D 

F6,50 

67 
EB 
61 

68 
29 
29 
29 
29 
29 
44 
4D 
C9 


CLEAR ADDRESS SUBROUTINE 


2518 

3E, 18 

FIND CL 

ADDR 

2520 

90 



2521 

57 



2522 

OF 



r> cr r> t 

jI.. JjI 

OF 



2524 

OF 



r> 

jL U a. bJ 

E6,E0 



2527 

6 F 



2528 

7A 

RESET PRINT 

POSN 

2529 

E6, 18 



2531 

F6, 40 



2533 

67 



2534 

C9 



SCROLL WAIT 

SUBROUTINE 


2535 

F5 

SCROLL WAI 

2536 

C5 



2537 

D5 



2538 

01,40, 

9C 


2541 

OB 

WAIT LOOP 

2542 

79 



2543 

BO 



2544 

20, FB 



2546 

AF 

LOOK 

AGAIN 

2547 

DB, FE 



2549 

E6, IF 



2551 

FE, F1 



2553 

28, F7 



2558 

Dl 



2559 

Cl 



2560 

FI 



2561 

C9 



COPY 

COMMAND ROUTINE 


2562 

F3 

COPY (K 

DUMP) 

2563 

06, BO 




RRC A 

DIVIDE BY 8 

RRC A 


RRC A 


DEC A 


OR SO 

ADD 80 

LD H, A 


EX DE, 

HL 

LD H, C 

BC X 32 

LD L, B 


ADD HL, 

HL 

ADD HL, 

HL 

ADD HL, 

HL 

ADD HL, 

HL 

ADD HL, 

HL 

LD B, H 


LD C, L 


RET 


LD A, 2 

4 REVERSE LINE 

SUB B 


LD D, A 

SAVE IN D 

RRC A 

DIVIDE BY 8 

RRC A 


RRC A 


AND 224 

MASK 3 HI BITS 

LD L, A 



LD A, D 

AND 24 MASK BITS 3 & 
OR 64 ADD 64 

LD H, A 
RET 


PUSH AF 
PUSH BC 
PUSH DE 
LD BC, 400000 
DEC BC 
LD A, C 

OR B BC=0? 

JR NZ, 251 (2541) WAIT L(jOP 

XOR A CLEAR A, CLEAR CARRY 
IN A, (254) 

AND 31 
CP 31 

JR Z, 247 (2546) LOOK AGAIN 

POP DE 

POP BC 

POP AF 

RET 


DI 

LD B, 176 FULL SCR PIX LINES 
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2565 21,00,40 

2568 E5 COPY—1 

2569 C5 

2570 CD,4A,OA 

2573 Cl 

2574 El 

2575 24 

2576 7C 

2577 E6,07 
2579 20,0A 

2581 7D 

2582 C6,20 

2584 6F 

2585 3F 

2586 9F 
2537 E6,F8 
2539 84 

2590 67 

2591 10,E7 COPY-2 

2593 13,OD 

COPY BUFFER SUBROUTINE 

2595 F3 COPY BUFF<DUMP PR) 

2596 21,00,5B 
2599 06,03 

2601 C5 COPY-3 

2602 CD,4A,OA 

2605 Cl 

2606 10,F9 

2608 3E,04 COPY END 

2610 D3,FB 
2612 FB 


LD HL, 15384 D-FILE (21X8) 

PUSH HL 
PUSH BC 

CALL 2634 PR SCAN 
POP BC GET INE # 

POP HL GET BASE ADDR 
INC H 
LD A, H 

AND 7 MASK 3 LOW BITS 

JF: NZ, 10 (2591) COPY-2 

LD A, L 

ADD A, 32 

LD L, A 

CCF 

SBC A, A 
AND 248 
ADD A, H 
LD H, A 

DJNZ, 231 (2568) COPY-1 

JR 13 (2608) COPY END 


DI 

LD HL, 23296 PRINTER BUFFER 
LD B, 8 
PUSH BC 

CALL 2634 PR SCAN 
POP BC 

DJNZ, 249 (2601) COPY-3 
LD A, 4 

OUT (251), A 2040 PRINTER 
El 


CLEAR PRINTER BUFFER SUBROUTINE 


2613 21,00,58 CL PRINTER BUFF 
2616 FD,75,46 

2619 AF 

2620 47 

2621 77 PR BUFF BYTES 

■r>‘T 

2623 10,FC 
2625 FD,CB,30,8E 
2629 OE,21 
2631 C3,14,09 

COPY LINE SUBROUTINE 

2634 78 PR LINE (COPY LINE) 

2635 FE,03 

2637 9F 

2638 E6,02 
2640 D3,FB 

2642 57 

2643 CD,09,20 CHECK BREAK 
2646 38,0A 

2648 3E,04 


LD HL, 23396 AT PRINT BUFFER 
LD (IY+70), L PR-CC 
XOR A CLEAR A 
LD B, A AND ALSO CLEAR B 
LD (HL), A CLEAR (HL) 

INC HL 

DJNZ, 252 (2621) PR BUFF BYTES 
RES 1, (IY+48) PR BUFF EMPTY 

LD C, 33 

JP 2324 STORE TV CUR 


LD A, B 
CP 3 

SBC A, A 
AND 2 

OUT (251), A 
LD D, A 

CALL 8201 BREAK? 

JR C, 10 (2658) PRINTER PRESENT? 
LD A, 4 IF BREAK STOP MOTOR 



?7 


2650 

D3,FB 


2652 

FB 


2653 

CD,35, 

OA 

2656 

CF 

ERR D 

2657 

OC 


2658 

DB, FB 

PRINTER PRESENT? 

2661 

F8 


2662 

30, EB 


2664 

DE, 20 


2666 

5E 

MORE BYTES 

2667 

rk”?; 


2668 

06,08 


2670 

CB, 12 

EACH BIT 

2672 

CB, 13 


2674 

CB, 1A 


2676 

DB, FB 

PRINTER WAIT 

2678 

IF 


2679 

30, FB 


2681 

7A 


2682 

D3, FB 


2684 

10, FO 


2686 

CD 


2687 

20, E9 


2689 

C9 



EDITOR ROUTINES 


2690 

2A,3D,5C 

EDl'T-K 

2693 

E5 


2694 

21,E5,OB 

EDIT AGAIN 

2697 

E5 


2698 

ED,73,3D,5C 


2702 

CD,CF,11 

EDIT LOOP 

2705 

F5 


2706 

16,00 

CLICK KEYS 

2708 

FD,5E,FF 


2711 

21,CS,00 


2714 

CD,F3,03 


2717 

FI 


2718 

21,8E,0A 


2721 

E5 


oyo 1 ”? 

FE,OC CHECK DELETE 

2724 

20, OC 


2726 

FD,CB,30,60 


2730 

20,06 


27 7%^ 

FD,CB,01,5E 


2736 

28,35 


2738 

FE, 18 

CONTINUE 

2740 

30,31 


2742 

FE, 07 


2744 

38,3D 


2746 

FE, 10 


2748 

38,3A 


2750 

01,02,00 


2753 

57 


2754 

FE, 16 



OUT (251), A 2040 PRINTER 
El 

CALL 2613 CL PRINTER BUFF 
RST 8 ERROR 
D BREAK—CONT repeats 
IN A, (251) PRINTER STATUS? 

ADD A, A 

JR NC, 235 (2543) CHECK BREAK 
LD C, 32 
LD E, (HL) 

INC HL 
LD B, 8 

RL D MOVE DE LEFT 

RL E EACH BIT INTO CARRY 

RR D D BACK PICKING UP CARRY 

OUT (251), A PRINTER STATUS 
RR A SIGNAL? 

JR NC, 251 (2676) PRINTER WAIT 

LD A, D PASS BIT TO BUFFER 
OUT (251), A BIT 2 OFF = START 
DJNZ, 240 (2670) EACH BIT MOTOR- 
DEC C 

JR NZ, 233 (2666) MORE BYTES 
RET 


LD HL, (23613) ERR SP 

PUSH HL SAVE ERR SP IN CASE ERROR 

LD HL, 3045 EDIT ERROR- 

PUSH HL RET IF NECESSARY 

LD (23613), SP 

CALL 4559 READ CHAR- 

PUSH AF 

LD D, O 

LD E, (IY+255) PIP (ADDR 23609) 

LD HL, 200 PITCH 
CALL 1011 PAR P 
POP AF 

LD HL, 2702 EDIT LOOP 
PUSH HL RET IF NECESSARY 
CP 12 DELETE? 

JR NZ, 12 (2738) CONTINUE^ 

BIT 5, (IY+48) REPEAT? 

JR NZ, 6 (2738) CONTINUE 
BIT 3, (IY+l) MODE? 

JR Z, 53 (2791) INSERT A IF K 
CP 24 CHAR >= 24? 

JR NC, 49 (2791) INSERT A 
CP 7 CHAN < 7? 

JR C, 45 (2791) INSERT A 
CP 16 

JR C, 58 (5808) EDIT KEY JUMP 
LD BC, 2 INK/PAPER NEED 2 LOCATES 
LD D, A 

CP 22 CHAR < 22? 
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2756 

38, OC 

2758 

03 CK AT/TAB 

2759 

FD,CB,37,7E 

2763 

CA,84,OB 

2766 

CD,CF,11 

2769 

5F 

2770 

CD,CF,11 ED-CNTL INK/PAPR 

2773 

D5 

2774 

2A,5B,5C 

2777 

FD,CB,07,86 

2781 

CD,BB,12 

2784 

Cl 

2785 

'-t ~r 

2786 

70 

2787 


2788 

71 

2789 

18, OA 


JR C, 12 (2770) ED-CNTL INK/PAPER 
INC BC 

BIT 7, (IY+55) INPUT LINE? 

JP Z, 2948 EDIT-IGNORE 
CALL 4559 READ CHAR 
LD E, A 

CALL 4559 READ CHAR- 
PUSH DE 

LD HL, (23643) K CUR 
RES 0, (IY+7) MODE NOT E 

CALL 4795 INSERT BC SPACES 
POP BC 
INC HL 

LD (HL), B ENTER 1ST CODE 
INC HL 

LD (HL) , C ENTER 2ND CODE 
JR 10 (2891) ADD CH-1 


ADD CHARACTER SUBROUTINE 


2791 

FD,CB,07,86 

INSert A 

2795 

2A,5B,5C 


2798 

CD,B8,12 


2801 

12 

ADD CH-1 

2802 

13 


2803 

ED,53,5B,5C 


2807 

C9 


2808 

5F EDIT 

KEY JUMP 

2809 

16,00 


2811 

21,FF,OA 


2814 

19 


2815 

5E 


2816 

19 


2817 

E5 


2818 

2A,5B,5C 


2821 

C9 


EDIT 

KEY TABLE 


2822 

09 


2823 

66 


2824 

6A 


2825 

50 


2826 

B5 


2827 

70 


2828 

7E 


2829 

CF 


2830 

D4 


EDIT 

KEY SUBROUTINE 


2831 

2A,49,5C 

EDIT 

2834 

FD,CB,37,6C 


2838 

C2,FD,OB 


2841 

CD,D6,16 


2844 

CD,24,13 


2847 

7A 


2848 

B3 



RES 0, (IY+7) SET K MODE 

LD HL, (23643) K CUR 
CALL 4792 INSert 1 
LD (DE), A 
INC DE 

LD (23643), DE 
RET 

LD E, A 
LD D, 0 

LD HL, 2815 EDIT KEY TABLE OFFSET 
ADD HL, DE ADD CHAR # 

LD E, (HL) 

ADD HL. DE ADD OFFSET 
PUSH HL 

LD HL, (23643) K CUR 
RET 


EDIT (2831) 

EDIT CURSOR LEFT (2925) 
EDIT CURSOR RIGHT (2930) 
EDIT CURSOR DOWN (2905) 
EDIT CURSOR UP (3007) 
EDIT DELETE (2939) 

EDIT ENTER (2954) 

EDIT SYMBOL SHIFT (3036) 
EDIT GRAPHICS (3042) 


LD HL, (23625) Edit PPC 
BIT 5, (IY+55) INPUT? 

JP NZ, 3069 DEL CURsor 
CALL 5846 FIND LINE ADDR 
CALL 4900 GET LINE # 

LD A, D 

OR E DE=0? 
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2849 

CA,FD,OB 

2852 

E5 

2853 

n ~r 

2854 

4E 

2855 

n-r 

2856 

46 

2857 

21 , 0 A ,00 

2860 

09 

2861 

44 

2862 

4D 

2863 

CD,BB,IF 

2366 

CD,FD,OB 

2869 

2A,51,5C 

2872 

E3 

2873 

E5 

2874 

3E,FF 

2876 

CD,30,12 

2879 

El 

2880 

2B 

2881 

FD,35,OF 

2384 

CD,AC,15 

2887 

FD,34,OF 

2890 

2A,59,5C 

2393 

n-r 

2894 

o? - 

2895 

OT 

2896 


2897 

22,5B,5C 

2900 

El 

2901 

CD,48,12 

2904 

C9 


JP Z, 3069 DEL CURsor 
PUSH HL SAVE LINE ADDR 
INC HL SAVE LINE LENGTH IN BC 
LD C, (HL) 

INC HL 
LD B, (HL) 

LD HL, 10 ADD 10 TO LENGTH 
ADD HL, BC 
LD B, H 
LD C, L 

CALL 8123 CHECK SIZE (ROOM?) 
CALL 3069 DEL CUR (CLEAR SPACE) 
LD HL, (23633) CURent CHanneL 
EX (SP), HL PUSH HL ON STACK 
PUSH HL AHEAD OF LAST ENTRY 

LD A, 255 OPEN CHAN R 
CALL 4656 SELECT CHANNEL 
POP HL GET LINE ADDR 
DEC HL 

DEC (IY+15) E—PPC—LOW 

CALL 5548 Line Print Out (LPO) 

INC (IY+15) E-PPC LOW 

LD HL, (23641) EDIT LINE 

INC HL STEP PAST TO CUR ADDR 

INC HL 

INC HL 

INC HL 

LD (23643), HL K CUR ADDR 
POP HL 
CALL 4680 
RET 


CURSOR DOWN EDITING SUBROUTINE 
2905 FD,CB,37, 6 E CUR DOWN ED 


2909 

20 , 

09 


291 1 

21 , 

49, 

5C 

2914 

CD, 

5B, 

16 

2917 

18, 

6 D 


2919 

FD, 

36, 

00 

2923 

IS, 

ID 



10 


EDIT STOP 


BIT 5, (IY+55) INPUT? 

JR NZ, 8 (2919) EDIT STOP 

LD HL, 23625 AT E-PPC 
CALL 5723 NEXT LINE 
JR 109 (3028) ED-LIST 
LD (IY+O), 16 ERROR # 

JR 29 (2954) EDIT ENTER 


CURSOR LEFT EDITING SUBROUTINE 

2925 CD,97,OB CUR LEFT-ED CALL 2967 ED-EDGE 
2928 18,05 jr 5 (2935) ED-CUR 


CURSOR RIGHT 

2930 7E 

2931 FE,OD 

2933 C 8 

2934 23 

2935 22,5B,5C 
2938 C9 


EDITING SUBROUTINE 

CUR RIGHT-ED LD A, (HL) 

CP 13 ENTER? 

RET Z 

INC HL CUR AFTER CHR 
ED-CUR LD (23643), HL K CUR 
RET 


DELETE EDITING SUBROUTINE 
2939 CD,97,OB DELETE-ED 


CALL 2967 ED-EDGE 




2942 01 , 01,00 

2945 C5,50,17 


DEL. RECord 


30 


ED-DEL SYM 


EDIT 

IGNORE SUBROUTINE 

2948 

CD,CF, 11 

ED-IGNORE 

2951 

CD,FF, 11 


ENTER EDITING SUBROUTINE 

2954 

El 

ED-ENTER 

2955 

El 


2956 

El 

ED-END 

2957 

22,3D,5C 


2959 

FD,CB,00,7E 


2964 

CO 


2965 

F9 


2966 

C9 


EDIT 

EDGE SUBROUTINE 

2967 

37 

ED-EDGE 

2968 

CD,FB,OC 


2971 

ED,52' 


2973 

19 


2974 



2975 

Cl 


2976 

D8 


2977 

C5 


2978 

44 


2979 

4D 


2980 

62 

ED-EDGE-1 

2981 

6B 


2982 

23 


2983 

1A 


2984 

E6,F0 


2986 

FE, 01 


2988 

20, 09 


2990 

O T 


2991 

1A 


ocpcpo 

D6, 17 


2994 

CE, 00 


2996 

20,01 


2998 

23 


2999 

A7 

ED-EDGE-2 

3000 

ED, 42 


3002 

09 


3003 

EB 


3004 

38, E6 


3006 

C9 


CURSOR UP EDITING 

SUBROUTINE 

3007 

FD,CB,37,6E 

ED-CUR UP 

3011 

CO 


3012 

2A,49,5C 


3015 

CD,D6,16 


3018 

EB 


3019 

CD,24,13 



LD BC, 1 
JP 5968 


CALL 4559 READ CHAR 
CALL 4559 READ CHAR 


POP HL DISCARD ED-LOOP 

POP HL DISCARD ERR-SP 

POP HL 

LD (23613), HL RESTORE OLD ERR-SP 
BIT 7, (IY+O) ERR #? 

RET NZ 
LD SP, HL 
RET 


SCF DE=E LINE OR WORKSPACE 

CALL 3323 SET DE 

SBC HL, DE CARRY SET IF CUR IN 

ADD HL, DE LINE 

INC HL CORRECT FOR SUBTRACTION 

POP BC DROP RETURN ADDR 

RET C TO ED-LOOP 

PUSH BC RESAVE RETURN ADDR 

LD B, H CUR ADDR TO BC 

LD C, L 

LD H, D 

LD L, E 

INC HL 

LD A, (DE) 

AND 240 MASK HIOH NIBBLE 
CP 16 INK TO TAB? 

JR NZ, 9 (2999) ED-EDGE-2 

INC HL 1 PARAMETER 
LD A, (DE) GET CHAR AGAIN 
SUB 23 CARRY RESET FOR TAB 
ADC A, O ADD CARRY ONLY 
JR NZ, 1 (2999) ED-EDGE-2 
INC HL 2ND PARAMETER FOR AT 
AND A CLEAR CARRY 

SBC HL, BC 
ADD HL, BC 
EX DE, HL 

JR C, 230 (2980) ED-EDGE-1 

RET 


BIT 5, (IY+55) INPUT? 

RET NZ 

LD HL, (23625) E-PPC 
CALL 5846 FIND LINE ADDR 
EX DE, HL 

CALL 4900 GET LINE # 


31 


022 

21, 

4A, 

5C 

025 

CD, 

68, 

16 

028 

CD, 

El ? 

14 

031 

3E, 

00 


033 

C3, 

30, 

12 


LD HL, 23626 AT E-PPC 
CALL 5736 STORE LINE 
ED-LIST CALL 5345 AUTO LIST 
LD A, O CHANNEL K 
JP 4656 SELECT CHANNEL 


EDIT 

SYMBOL SUBROUTINE 

3036 

FD,CB,37,7E 

3040 

28, A8 

3042 

C3,E7,0A ED-GRAP 

EDIT 

ERROR SUBROUTINE 

3045 

FD,CB,30,66 

3049 

28, A1 

3051 

FD,36,00,FF 

3055 

16,00 

3057 

FD,5E,FE 

3060 

21,90,1A 

3063 

CD,F3,03 

3066 

C3,86,OA 

CLEAR SPACE SUBROUTINE 

3069 

E5 CLEAR SPACE (DEL 1 

3070 

CD,F6,OC 

3073 

2B 

3074 

CD,4D,17 

3077 

22,5B,5C 

3080 

FD,36,07,00 

3084 

El 

3035 

C9 

KEYBOARD INPUT SUBROUTINE 

3086 

FD,CB,02,5E INput Ki 

3090 

C4,83,OC 

3093 

A7 

3094 

FD,CB,01,6E 

3098 

ce 

3099 

3A,08,5C 

3102 

FD,CB,01, AE 

3106 

F5 

3107 

FD,CB,02,6E 

3111 

C4,A9,08 

3114 

FI 

3115 

FE, 20 

3117 

30,52 

3119 

FE, 10 

3121 

30, 3D 

3123 

FE, 06 

3125 

30,0 A 

3127 

47 

3128 

E6,01 

3130 

4F 

3131 

78 

3132 

IF 

3133 

C6, 12 


BIT 7, (IY+55) INPUT? 

JR 2, 168 (2954) ENTER EDIT 

JP 2791 INSERT A 


BIT 4, (IY+48) CHAN K? 


JR 

LD 

LD 

LD 

LD 


Z, 161 (2956) EDIT END 

<IY+0), 255 RESET ERR # 

D, O SOUND BUZZER ROUTINE 

E, (IY+254) RASP 
HL, 6800 

CALL 1011 PAR P 
JP 2694 EDIT K AGAIN 


PUSH HL 
CALL 3318 
DEC HL 
CALL 5965 
LD (23643) 
LD (IY+7), 
POP HL 
RET 


SET HL 

DEL DE (RECLAIM-1) 
HL K CUR ADDR 
O MODE K 


BIT 3, (IY+2) COPY EDIT LINE OR 

CALL NZ, 3203 ECHO INPUT LINE 
CLEAR CARRY 

KEYHIT? 


(IY+1) 


AND A 
BIT 5, 

RET Z 

LD A, (23560) 
RES 5, (IY+1) 


LAST K 
KEYHIT OFF 


PUSH AF SAVE CODE 

BIT 5, (IY+2) CLS IF KEYHIT? 

CALL NZ, 2217 CL-LHS 


POP AF 
CP 32 
JR NC, 
CP 16 
JR NC, 
CP 6 
JR NC, 
LD B, 
AND 1 
LD C, 
LD A, 
RR A 
ADD A, 


GET CODE BACK 
CHAR < 32? 

82 (3201) KEY DONE =N0 CTL 

45 (3168) KEY CONTROL 

10 (3137) MODE ?< CAPS LOCK 
) SAVE CODE IN B 


A 

B 

DIVIDE BY 2 
18 FLASH = 


18, BRIGHT 


19 
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3135 

18,2a 



3137 

20,09 MODE 

CAPS 

LOCK 

3139 

21,6A,5C 



3142 

3E, 08 



3144 

AE 



3145 

77 



3146 

18, OE 



3148 

FE,OE 

KEY 

MODE 

3150 

D8 



3151 

D6, OD 



3153 

21,41,5C 



3156 

BE 



3157 

77 



3158 

20,02 



3160 

36,00 



3162 

FD,CB,02,DE KEY 

FLAG 

3166 

BF 



3167 

C9 



3168 

47 

KEY CONTROL 

3169 

E6,07 



3171 

4F 



3172 

3E, 10 



3174 

CB, 58 



3176 

20 , 01 



3178 

3C 



3179 

FD,71,D3 

KEY 

DATA 

3182 

11,73,OC 



3185 

18,06 



3187 

3A,0D,5C 

KEY 

NEXT 

3190 

11, OE,OC 



3193 

2A,4F,5C 

KEY 

CHAN 

3196 




3197 




3198 

73 



3199 

OT 



3200 

72 



3201 

37 

KEY 

DONE 

3202 

C9 




JR 42 (3179) KEY DATA INV = 20 
JR NZ, 9 (3148) KEY MODE 
LD HL, 23658 AT FLAGS 2 
LD A, 8 

XOR (HL) FLIP CAPS LOCK 
LD (HL), A 

JR 14, (3162) KEY FLAG 

CP 14 CHECK LOWER LIMIT 
RET C 

SUB 13 REDUCE RANGE 
LD HL, 23617 AT MODE 
CP (HL) MODE CHANGE? 

LD (HL), A ENTER NEW MODE 

JR NZ, 2 (3162) KEY FLAG 

L.D (HL) , O MAKE L MODE 

SET 3, (IY+2) SIGNAL MODE CHANGE 

CP A RESET CARRY 

RET 

LD B, A SAVE CODE 

AND 7 MASK 3 LOW BITS 

LD C, A C = PARAMETER 

LD A, 16 INK 

BIT 3, B SHIFT ? 

JR NZ, 1 (3179) KEY DATA 

INC A PAPER 

LD (IY+211), C 23566-TV DATA 

LD DE, 3187 KEY NEXT 

JR 6 (3193) KEY CHAN 

LD A, (23565) K DATA 

LD DE, 3086 KEY INPUT 

LD HL, (23631) CHANS 

INC HL 

INC HL 

LD (HL), E SET INPUT ADDR 

INC HL 

LD (HL), D 

SCF 

RET 


LOWER SCREEN COPYING SUBROUTINE 


3203 CD,88,08 ECHO (SCR COPY) 
3206 FD,CB,02,9E 
3210 FD,CB,02,AE 
3214 2A,8A,5C 

3217 E5 

3218 2A,3D,5C 

3221 E5 

3222 21,CB,OC 

3225 E5 

3226 ED,73,3D,5C 
3230 2A,82,5C 

3233 E5 

3234 37 

3235 CD,FB,OC 
3238 EB 


CALL 2184 TEMP R-ATTR 

RES 3, (IY+2) ECHO MODE UNCHANGED 

RES 5, (IY+2) CLS-L OFF 

LD HL, (23690) S-POSN-L 

PUSH HL SAVE IT 

LD HL, (23613) ERR SP 

PUSH HL. SAVE IT ALSO 

LD HL, 3277 ED-FULL 

PUSH HL RET ADDR IF ERROR 

LD (23613), SP 

LD HL, (23682) ECHO E 

PUSH HL SAVE IT 

SCF 

CALL 3323 SET DE 
EX DE, HL 
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3239 CD,C9,15 

3242 EB 

3243 CD,2D,16 
3246 2A,8A,5C 

3249 E3 

3250 EB 

3251 CD,88,08 

3254 2A,88,5C ED BLANK 

3257 92 

3258 38,26 
3260 20,06 

3262 7B 

3263 FD,96,50 
3266 30,IE 

3268 3E,20 ED SPACES 

3270 D5 

3271 CD,00,05 

3274 D1 

3275 18,E9 

3277 16,00 ED FULL 

3279 FD,5E,FE 

3282 21,90,1A 

3285 CD,F3,03 

3288 FD,36,00,FF 

3292 ED,5B,8A,5C 

3296 18,02 

3298 D1 

3299 El 

3300 El ED C-DONE 

3301 22,3D,5C 

3304 Cl 

3305 D5 

3306 CD,14,09 

3309 El 

3310 22,82,5C 
3313 FD,36,26,00 
3317 C9 


CALL 5577 PUT LINE-2 
EX DE, HL 

CALL 5677 PRINT CUR 
LD HL, (23690) S POSN-L 
EX (SP), HL 

EX DE, HL ECHO E TO DE 

CALL 2184 TEMP R-ATTR 

LD A, (23691) S POSN-H 
SUB D BLANKING? 

JR C, 38 (3300) ED-C-DONE 
JR NZ, 6 (3268) ED-SPACES 
LD A, E GET OLD COLUMN # 

SUB (IY+80) S POSN-L LOW 
JR NC, 30 (3300) ED C-DONE 
LD A, 32 SPACE 
PUSH DE 

CALL 1280 SEND TV 
POP DE GET OLD VALUES 

JR 233 (3254) ED BLANK 
LD D, 0 

LD E, (IY+254) RASP 

LD HL, 6800 

CALL 1011 PAR P 

LD (IY+O), 255 RESET ERR # 

LD DE, (23690) S POSN-L 

JR 2 (3300) ED C-DONE 

POP DE NEW POSN 

POP HL ERR ADDR 

POP HL OLD ERR ADDR 

LD (23613), HL RESET ERR SP 

POP BC OLD VAL S POSN-L 

PUSH DE SAVE NEW POSN VALUES 

CALL 2324 SET TV CUR 

POP HL OLD VAL S POSN-L 

LD (23682), HL RESTORE ECHO E 

LD (IY+38), 0 X POINTER 

RET 


SET HL AND SET DE SUBROUTINES 
3318 2A,6A,5C SET HL 

3321 2B 

3322 A7 

3323 ED,5B,59,5C SET DE 

3327 FD,CB,37,6E 

3331 C8 

3332 ED,5B,61,5C 

3336 D8 

3337 2A,63,5C 
3340 C9 


LD HL, 
DEC HL 

(23649) 

WORKSPACE 

AND A 

CLEAR 

A 

LD DE, 

(23641) 

E LINE ADDR 

BIT 5, 
RET Z 

(IY+55) 

CUR IN LINE? 

LD DE, 
RET C 

(23649) 

WORK SPACE 

LD HL, 
RET 

(23651) 

STK BOTTOM 


REMOVE FP (DESLUG) SUBROUTINE 

3341 7E DESLUG 

3342 FE,OE 
3344 01,06,00 
3347 CC,50,17 


LD A, (HL) 

CP 14 SLUG? 

LD BC, 6 SKIP 6 SPACES 

CALL Z, 5968 DEL REC (RECLAIM-2) 
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3350 

7E 


LD A, (HL) 

3351 

23 


INC HL 

3352 

FE, OD 


CP 13 ENTER? 

3354 

20 , F1 


JR NZ, 241 (3341) DESLUG UNTIL 

3356 

C9 


RET END OF LINE 



EXECUTIVE ROUTINES 

INITALIZTION ROUTINES 


NEW COMMAND ROUTINE 


3357 

F3 

K-NEW 

DI 

3358 

3E,FF 


LD A, 255 

3360 

ED,5B,B2,5C 


LD DE, (23730) RAMTOP 

3364 

D9 


EXX 

3365 

ED,4B,B4,5C 


LD BC, (23732) Physical RAMTOP 

3369 

ED,5B,38,5C 


LD DE, (23608) RASP/PIP 

3373 

2A,7B,5C 


LD HL, (23675) UDG 

3376 

D9 


EXX 

3377 

47 

INITIALIZE 

LD B, A 

3378 

3E, 07 


LD A, 7 

3380 

D3, FE 


OUT (254), A 

3382 

3E,3F 


LD A, 63 

3384 

ED, 47 


LD I, A SET INTERRUPT 

3386- 

-3391 00 

WAIT 

NOP 

3392 

62 

RAM CHECK 

LD H, D 

3393 

6 B 


LD L, E 

3394 

36,02 

RAM FILL 

LD (HL), 2 TEST RAM 

3396 

2B 


DEC HL 

3397 

BC 


CP H TO A = 63 

3398 

20, FA 


JR NZ, 250 (3394) RAM FILL 

3400 

A7 

RAM READ 

AND A CLEAR CARRY 

3401 

ED, 52 


SBC HL, DE 

3403 

19 


ADD HL, DE 

3404 

23 


INC HL 

3405 

30,06 


JR NC, 6 (3413) RAM DONE 

3407 

35 


DEC (HL) 

3408 

28,03 


JR Z, 3 (3413) RAM DONE 

3410 

35 


DEC (HL) 

3411 

28, F3 


JR Z, 243 (3400) RAM RED 

3413 

2B 

RAM DONE 

DEC HL 

3414 

D9 


EXX 

3415 

ED,43,B4,5C 


LD (23732) BC RESET P RAMTOP 

3419 

ED,53,38,5C 


LD (23608), DE RESET RASP/PIP 

3423 

22,7B,5C 


LD (23675), HL SET UDG 

3426 

D9 


EXX 

3427 

04 


INC B 

3428 

28, 19 


JR Z, 25 (3455) RAM SET 

3430 

22,B4,5C 


LD (23732), HL RESET P RAMTOP 

3433 

11,AF,3E 


LD DE, 16047 

3436 

01 ,A8,00 


LD BC, 168 21X8 UDG LENGTH 

3439 

EB 


EX DE, HL 

3440 

ED, B8 


LDDR 

3442 

EB 


EX DE, HL 

3443 



INC HL 

3444 

22,7B,5C 


LD (23675), HL RESET UDG ADDR 

3447 

2B 


DEC HL 



3448 01,40,00 


3451 

ED,43,38,5C 


3455 

22,B2,5C 

RAM SET 

3458 

21,00,3C 

NEW 

3461 

22,36,5C 


3464 

21,00,62 


3467 

22,CO,5C 


3470 

2 B 


3471 

36, 3E 


3473 

2B 


3474 

F9 


3475 

2B 


3476 

2B 


3477 

22,3D,5C 


3480 

ED, 56 


3482 

0 


3483 

FD,21,3A,5C 


3487 

21,40,68 


3490 

22,4F,5C 


3493 

11,AA ,11 

LD CHANS 

3496 

01,15,00 


3499 

eb' 


3500 

ED, BO 


3502 

EB 


3503 

3E,38 SET 

PAPER/INK 

3505 

32,8D,5C 


3508 

32,8F,5C 


3511 

32,48,5C 


3514 

21,23,05 


3517 

22,09,5C 


3520 

FD,35,C 6 


3523 

FD,35,CA 


3526 

21 ,Cl ,11 

LD STREAMS 

3529 

11,10,5C 


3532 

01 ,OE ,00 


3535 

ED , BO 


3537 

AF 


3538 

D3,FF 


3540 

FD,CB,01,CE 


3544 

CD,35,0A 


3547 

FD,36,31,02 


3551 

CD,A6,08 


3554 

af' 


3555 

FD,CB,01,E 6 


3559 

11,17,11 


3562 

CD,3F,07 


3565 

FD,CB,02,EF 


3569 

21,OB,OE LD 

XFER DISPAT 

3572 

11,00,60 


0*575 

01 ,OD ,00 


3578 

ED, BO 


3580 

CD,00,60 


3583 

21,CEi65 


3586 

22,CE,65 


3589 

21,E7,08 



LD BC, 64 

LD (23608), BC SET RASP 
LD (23730), HL RAMTOP 
LD HL, 15360 

LD (23606), HL SET CHAR TABLE 
LD HL, 25088 

LD (23744), HL SET MACH STK BOT 
DEC HL 

LD (HL), 62 SET END MARKER- 
DEC HL 

LD SP, HL SET STACK POINTER- 
DEC HL 
DEC HL 

LD (23613), HL SET ERR SP 
IM 1 SET INTERRUPT MODE 

NOP 

LD IY, 23610 SET IY 

LD HL, 26688 CHANS ADDR 

LD ( 23631) , HL SET CHANS ADOR¬ 
ED DE, 4522 FROM HERE TO 26688 
LD BC, 21 

EX DE, HL 

LDIR 

EX DE, HL 

LD A, 56 PAPER =WHITE/INK =BLACK 

LD (23693), A SET ATTR P 

LD (23695), A SET ATTR T 

LD (23624), A SET BORDER 

LD HL, 1315 SET REPDEL=5:REPPER 

LD (23561), HL = 35 

DEC (IY+198) K STATEO = 255 

DEC (IY+202) K STATE 4 - 255 

LD HL, 4545 STREAMS VARS 

LD DE, 23568 TO THIS ADDR 

LD BC, 14 

LDIR 

XOR A CLEAR A CLEAR CARRY 
OUT (255), A 

SET 1 , (IY+ 1 ) PRINTER IN USE 

CALL 2613 CL PRINTER BUFFER 

LD (IY+49), 2 SET DF SZ = 2 / 

CALL 2214 K-CLS 

XOR A CLEAR A ?< CARRY 

SET 4, (IY+ 1 ) TOKEN/SLUG ON 

LD DE, 4375 COPYWRITE 

CALL 1855 PUT MESSAGE 

SET 5, (IY+ 2 ) SET CLS-L AT KEYHIT 

LD HL, 3595 FROM HERE 

LD DE, 24576 TO HERE 

LD BC, 29 LENGTH 

KDIR 

CALL 24576 XFER DISPATCHER 
LD HL, 26062 BANK SWITCH SP 
LD (26062). HL 
LD HL, 227$ 
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3592 CD,15,68 

XFER DISPATCHER SUBROUTINE 

3595 3E,0 1 

3597 D3,F4 

3599 DB,FF 

3601 CB,FF 

3603 D3,FF 

3605 21,00, . 1 0 

3608 11,00,62 

3611 01,30,06 

3614 ED,BO 

3616 CB,BF 

3618 D3,FF 

3620 AF 

3621 D3,F4 

3623 C9 

MAIN EXECUTION LOOP ROUTINE 

3624 FD,36,31,02 MAIN-EXEC 
3623 CD,El,14 

3631 CD,3F,13 MAIN-1 (LED 18) 

3634 3E,00 GET CHAN K 

3636 CD,30,12 

3639 CD,82,0A 

3642 CD,27,1A 

3645 FD,BC,00,7E 

3649 20,12 

3651 FD,CB,30,66 

3655 23,44 

3657 2A,59,5C 

3660 CD,00,OD 

3663 FD,36,00,FF 

3667 18,DD' 

3669 2A,59,5C MAIN-3 

3672 22,5D,5C 
3675 CD,68,17 

3678 78 

3679 B1 

3680 C2,58,11 

3683 DF 

3684 FE,OD 
3686 28,CO 

3688 FD,CB,30,46 
3692 C4,EA,08 
3695 CD,A9,03 
3698 3E,19 
3700 FD,96,4F 
3703 32,8C,5C 
3706 FD,CB,01,FE 
3710 FD,36,00,FF 
3714 FD,36,0A,01 
3718 FD,36,7C,00 
3722 CD,D8,1A 

3725 76 MAIN-4 (LED 4) 


CALL 26645 DISPAT SOURCE STATE-2 

ALSO AT ADDR 24576 
LD A, 1 

OUT (244), A HORIZ SEL REG 
IN A, (255) 

SET 7, A 
OUT (255), A 

LD HL, 4096 FROM ADDR BANK 254 
LD DE, 25088 TO HERE 
LD BC, 1584 
LDIR 

RES 7, A 

OUT (255), A 

XQR A CLEAR A 2< CARRY 

OUT (244), A 

RET 

(EDITING, DIRECT COMMANDS, REPORTS) 
LD (IY+49),2 DF SZ = 2 
CALL 5345 AUTO LIST 
CALL 4927 CLear Edit Line 
LD A, 0 CHAN K 
CALL 4656 SELECT CHAN 
CALL 2690 EDITOR 
CALL 6695 SYNTAX 
BIT 7, (IY+O) ERR # SET? 

JR NZ, 13 3669) MAIN-3 
BIT 4, (IY+48) K CHAN? 

JR Z, 68 (3725) MASKABLE INTRF'T 
LD HL, (23641) E LINE ENABLED? 
CALL 3341 DESLUG 
LD (IY+O), 255 RESET ERR # 

JR 221 (3624) GET CHAN K 

LD HL, (23641) E LINE ADDR 
LD (23645), HL CHAR ADDR 
CALL 5992 LINE # EDIT 
LD B, A 

OR C BC=0? VALID LINE #? 

JP NZ, 4440 MAIN ADD 
RST 24 GET CHAR 
CP 13 ENTER? 

JR Z, 192 (3624) MAIN EXEC 
BIT 0, (IY+48) AUTO LIST ? 

CALL NZ, 2282 CLS 
CALL 2217 CL-LHS 
LD A, 25 SET SCROLL COUNT 
SUB (IY+79) PRINT LINE 
LD (23692), A NEW SCROLL COUNT 
SET 7, (IY+l) SIGNAL LINE EXEC 

LD (IY+O), 255 RESET ERR # 

LD (IY+10), 1 NSF'PC 

LD (IY+l24), O ERR LINE LOW = O 
CALL 6872 EXECUTE (PROG RUN) 
HALT MASKABLE INT ENABLED? 
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3726 FD,7E,00 
3729 FE,FF 
3731 28,33 
3733 FD,CB,7D,7E 
3737 28,2D 
3739 FD,CB,7D,F6 

3743 3C 

3744 32,BB,5C 
3747 FD,36,00,FF 
3751 2A,45,5C 
3754 22,B8,5C 
3757 3A,47,5C 
3760 32,BA,5C 

- 7 6 :■ 2 A, B6,5C 
3766 CB,BC 
3768 CB,B4 
3770 22,42,50 
3773 FD, 36,0A, 01 
3777 21,80,OE 

3780 E5 

3781 C3,B9,1A 

3784 3E,07 SOUND RASP 

3786 D3,F5 

3788 E3,FF 

3790 D3,F6 

3792 FD,CB,02,93 

3800 FD,CB,30,4E 

3804 C4,23,OA 

3807 3A,3A,5C PRINT ERR MESS 

3810 3C 

3811 F5 MAIN-G 

3312 21,00,00 

3315 FD,74,37 
3818 FD,74,26 
3821 22,08,5C 
3324 21,01,00 
3827 22,16,5C 
3330 CD,3F,13 
3333 FD,CB,37,AE 
3837 CD,A9,08 
3340 FD,CB,02,EE 
3344 FI 

3845 47 SORT ERR #'S 

3846 FE,OA 
3848 33,02 
3850 C6,07 

3352 CD,EA,11 MAIN-5 

3855 3E,20 

3857 D7 

3858 78 

3859 11,65,OF 
3862 CD,3F,07 

3865 AF 

3866 11,15,11 
3869 CD,3F,07 


LD A, (IY+O) ERR # 

CP 255 _... 

JR Z< 51 (3784) SOUND RASP 
BIT 7, (IY+125) ERR LN HI 

JR Z, 45 (3784) SOUND RASP 
SET 6 , (IY+125) ERR LINE HI + 64 

INC A 

LD (23739), A ERR T(#) 

LD (IY+O), 255 RESET ERR # 

LD HL, (23621) Present Prog Cntr 
LD (23736), HL LINE # OF ERROR 
LD A, (23623) SUB PPC 
LD (23733), A ERR STATEMENT # 

LD HL, (23734) ON ERR GOTO LINE 
RES 7, H MAKE SURE NEW LINE IS 
RES 6 , H LESS THAN 10000 
LD (23613), HL NEW PPC 
LD (IY+10), 1 NEWPPC 

LD HL, 3725 MAIN-4 (LED 4 ) 

PUSH HL 

JP 6841 END STatemenT 
LD A, 7 

OUT (245), A BUZZER ON 

LD A, 255 

OUT (246), A 

RES 3, (IY+2) ECHO OFF 

BIT 1 , (IY+48) PRINTER BUFF ON? 

CALL NZ, 2595 CLEAR PRINTER BUFF 

LD A, (23610) ERR # 

INC A UP IT 1 

PUSH AF SAVE IT 

LD HL, 0 RESET SOME FLAGS 

LD (IY+55), HL FLAG X 

LD (IY+38), HL X POINTER HI 

LD (23563), HL DEF ADDR 

LD HL, 1 STREAM 0 POINTS TO K 

LD (23574), HL STREAMS 

CALL 4927 CL EDIT LINE 

RES 5, (IY+55) EDIT ON 

CALL 2217 CL LHS 

SET 5, (IY+ 2 ) CLS-L WHEN KEYHIT 

POP AF GET REPORT # ‘ 

LD B, A SAVE CODE IN B 
CP 10 

JR C, 2 (3852) MAIN-5 ERRC 10 

ADD A, 7 ADD LETTER OFFSET 

CALL 4586 PUT DIGET 

LD A, 32 SPACE 

RST 16 PRINT CHAR (BLANK) 

LD A, B GET CODE BACK 
LD DE, 3941 ERR MESS TABLE 
CALL 1855 PUT MESS 
XOR A CLEAR A S< CARRY 
LD DE, 4373 ADD M ,“ ?< SPACE 
CALL 1855 PUT MESS 
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3872 

ED,48,45 

3876 

CD,88,17 

3879 

3E, 3A 

3881 

D7 

3382 

FD,4E,OD 

3885 

06,00 

3887 

CD,88,17 

3890 

CD,FD,OB 

3893 

3A,3A,5C 

3896 

3C 

3897 

28, IB 

3899 

FE, 09 

3901 

28,04 

3903 

FE, 1 5 

3905 

20 , 03 

3907 

FD,34,OD 

3910 

01,03,00 

3913 

11,70,5C 

3916 

21,44,5C 

3919 

CB,7E 

3921 

28,01 

3923 

09 

3924 

ED, B8 

3926 

FD,36,OA 

3930 

FD,CB,01 

3934 

FD,CB,02 

3938 

C3,32,OE 


LD BC, (23621) PPC 

CALL 6024 PUT BC (PRINT LINE #) 

LD A, 58 

RST 16 PRINT CHAR (:) 

LD C, (IY+13) SUB PPC 
LD B, 0 

CALL 6024 PUT BC(PRINT SUB LINE # 
CALL 3069 DEL CUR (CLEAR SPACE) 
LD A, (23610) ERR # 

INC A 

JR Z, 27 (3926) MAIN-9 
CP 9 STOP? 

JR Z, 4 (3907) MAIN-6 
CP 21 BREAK? 

JR NZ, 3 (3910) MAIN-7 
MAIN-6 INC (IY+13) SUB PPC 
MAIN-7 LD E-iC, 3 

LD DE, 23664 OLD SUB PPC 
LD HL, 23620 NEW SUB PPC 
BIT 7, (HL) 

JR Z, 1 (3924) MAIN-8 

ADD HL, BC 

MAIN-8 LDDR LOAD DOWN 3 BYTES 
MAIN-9 LD (IY+10), 2555 NEW SUB PPC 
RES 3, (IY+1) MODE = K 

RES 3, (IY+2) ECHO OFF 

JP 3634 MAIN-2 (LED 18) 


REPORT MESSAGE TABLE 


3941 80 ERR MESS TABLE 


3942 

4F, 

CB 







3944 

4E, 

45, 

«=;o 

54, 

20 , 

77, 

69, 

74, 


68 , 

6 F, 

75, 

74, 

20 , 

46, 

4F, 

D2 

3960 

56, 

61, 

72, 

69, 

61, 

62, 

6 C, 

65, 


20 , 

6 E, 

6 F, 

74, 

20 , 

6 E, 

6 F, 

74, 


20 , 

66 , 

6 F, 

75, 

6 E, 

E4 



3978 

53, 

75, 

62, 

73, 

63, 

72, 

69, 

70, 


74, 

20 , 

77, 

70 

6 F, 

6 E, 

E7 


3993 

4F, 

75, 

74, 

20 , 

6 F, 

66 , 

20 , 

6 D, 


65, 

6 D, 

6 F, 

72, 

F9 




4006 

4F, 

75, 

74, 

20 , 

6 F, 

66 , 

20 , 

7+ 


63, 

72, 

65, 

65, 

EE 




4019 

4E, 

7C, 

/ , 

6 D, 

62, 

65, 

72, 

20 , 

74, 


6 F, 

6 F, 

20 , 

62, 

69, 

E7 



4033 

52, 

45, 

54, 

55' 

52, 

4E, 

20 , 

77, 


69, 

74, 

68 , 

6 F, 

75, 

74, 

20 , 

47, 


4F, 

53, 

55, 

C2 





4053 

45, 

6 E, 

64, 

20 , 

6 F, 

66 , 

20 , 

66 , 


69, 

6 C, 

E5 






4064 

53, 

54, 

4F, 

50, 

20 , 

73, 

74, 

61, 


74, 

65, 

6 D, 

65, 

6 E, 

F4 



4078 

49, 

6 E, 

76, 

61, 

6 C, 

69, 

64, 

20 , 


61, 

72, 

67, 

75, 

6 D, 

65, 

6 E, 

F4 

4094 

49, 

6 E, 

74, 

65, 

67, 

65, 

72, 

20 , 


6 F, 

75, 

74, 

20 , 

6 F, 

66 , 

20 , 

72, 


INITIAL MARKER 
O OK 

1 NEXT without FOR 

2 Variable not -found 

3 Subscript wrong 

4 Out o-f memory 

5 Out of screen 

6 Number too big 

7 RETURN without GOSUB 

8 END of file 

9 STOP statement 

A Invalid argument 
B Integer out of range 
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61,6E,67,E5 

4114 4E,6F,6E,73,65,6E,73,65, 
20,69,6E,20,42,41,53,49, 
C9 


4 131 

42, 

52, 

45, 

41,48, 

20 , 

2D, 

20 , 


43, 

4F, 

4E, 

54,20, 

72, 

65, 

70, 


65, 

61, 

74, 

F3 




4151 

4F, 

75, 

75, 

20, 6 F, 

66 , 

20 , 

44, 


41, 

54, 

Cl 





4162 

49, 

6 E, 

76, 

61,6C, 

69, 

64, 

20 , 


66 , 

69, 

6 C, 

65,20, 

6 E, 

61, 

6 D, 


E5 







4179 

4E, 

6 F, 

20 , 

72,6F, 

6 F, 

6 D, 

20 , 


66 , 

6 F, 

72, 

20, 6 C, 

69, 

6 E, 

E5 

4195 

53, 

54, 

4F, 

50, 20 , 

69, 

6 E, 

20 , 


49, 

4E, 

50, 

55, D4 




4208 

46, 

4F, 

52, 

20,77, 

69, 

74, 

68 , 


6 F, 

~/cr 

S'- 1 * 

74, 

20,4E, 

45, 

53, 

D4 

4224 

49, 

6 E, 

76, 

61,6C, 

69, 

64, 

20 , 


49, 

2 F, 

4F, 

20,64, 

65, 

76, 

69, 


63, 

E5 






4242 

49, 

6 E, 

76, 

61,6C, 

69, 

64, 

20 , 


63, 

6 F, 

6 C, 

6F,F2 




4255 

42, 

52, 

45, 

41,48, 

20 , 

69, 

6 E, 


74, 

6 F, 

20 , 

70,72, 

6 F, 

67, 

72, 


61, 

ED 





4273 

52, 

41, 

4D, 

54,4F, 

50, 

20 , 

6 E, 


6 F, 

20 , 

67, 

6 F, 6 F, 

E4 



4287 

53, 

74, 

61, 

74,65, 

6 D, 

65, 

6 E , 


74, 

20 , 

6 C, 

6 F , 73, 

F4 



4301 

49, 

6 E, 

76, 

61,6C, 

69, 

64, 

20 , 


73, 

74, 

72, 

65,61 , 

ED 



4315 

46, 

4E, 

20 , 

77N69, 

74, 

68 , 

6 F, 


75, 

74, 

20 , 

44,45, 

C 6 



4329 

50, 

61, 

72, 

61 , 6 D, 

65 , 

74, 

65, 


72, 

20 , 

65, 

72,72, 

6 F , 

F2 


4344 

54, 

61, 

70, 

65,20, 

6 C, 

6 F, 

61, 


64, 

69, 

6 E, 

67,20, 

65, 

72, 

72, 


6 F, 

F2 






4362 

4D, 

69, 

73, 

73,69, 

6 E, 

67, 

20 , 


4C, 

S7 

.i_ n 

4F, 

D3 




4374 

2 C, 

AO 






4376 

7F, 

20 , 

31, 

39,38, 

•— 1 -*2- * 

20 , 

53, 


69, 

6 E, 

£*--• n 

6C,61, 

69, 

72, 

20 , 


52, 

65, 

73, 

65,61, 

72, 

63, 

61, 


72, 

63, 

68 , 

20,4C, 

74, 

64, 

OD, 


OD, 

7F, 

20 , 

31,39, 

38, 

*—* n 

20 , 


54, 

69, 

6 D, 

65,78, 

20 , 

43, 

6 F , 


6 D, 

70, 

75, 

74,65, 

72, 

20 , 

43, 


6 F , 

72, 

FO 





REPORT G 

, — 

NO 

ROOM FOR 

LINE 

4432 

3E, 

10 






4434 

01 , 

00 , 

00 





4437 

C3, 

E3, 

OE 






C Nonsense in BASIC - 

D BREAK — CONT repeats 

E OUT of DATA 
F Invalid file name 

G No room for line 
H STOP in INPUT 
I FOR without NEXT 
J Invlid I/O device 

K Invalid color 
L E-JREAK into program 

M RAMTOP no good 
N Statement lost 
0 Invalid stream 
P FN without DEF 
Q Parameter error 
R Tape loading error 

S Missing LROS 

„ f 

c 1982 SINCLAIR Research Ltd 
c 1983 TIMEX Computer Corp 

LD A, 16 
LD BC, 0 
JP 3811 


MAIN-G 
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MAIN ADD SUBROUTINE 

4440 ED,43,49,5C MAIN-ADD LINE LD (23625) BC E PPC 


4444 2A,5D,5C 

4447 EB 

4448 21,5D,5C 

4451 E5 

4452 2A,61,5C 

4455 37 

4456 ED,52 

4458 E5 

4459 60 

4460 69 

4461 CD,D6,16 
4464 20,06 
4466 CD,20,17 
4469 CD,50,17 

4472 Cl GET NEW LINE LEN 

4473 79 

4474 3D 

4475 BO 

4476 28,28 

4478 C5 

4479 03 

4480 03 

4481 03 

4482 03 

4483 2B 

4484 ED,5B,53,5C 

4488 D5 

4489 CD,BB,12 

4492 El 

4493 22,53,5C 

4496 Cl 

4497 C5 

4498 13 

4499 2A,61,5C 

4502 2B 

4503 2B 

4504 ED,B8 
4506 2A,49,5C 

4509 EB 

4510 Cl 

4511 70 

4512 2B 

4513 71 

4514 2B 

4515 73 

4516 2B 

4517 72 

4518 FI ONLY LINE # 

4519 C3,28,OE 


LD HL, (23645) CHAR ADDR 
EX DE,HL 

LD HL, 4432 REPORT G 
PUSH HL RET ADDR 
LD HL, (23649) WORK SPACE 
SCF 

SBC HL, DE 
PUSH HL 
L.D H, B 
LD L, C 

CALL 5846 FIND LINE ADDR 
JR NZ, 6 (4472) GET NEW LINE LEN 
CALL 5920 RECord LENgth(NEXT 1) 
CALL 5968 DEL REC(RECLAIM-2) 

POP BC 
LD A, C 
DEC A 
OR B 

JR Z, 40 (4518) LINE # ONLY 
PUSH BC 

INC BC 2 SPACES FOR LINE # 

INC BC 

INC BC 2 MORE FOR LENGTH 
INC BC 
DEC HL 

LD DE, (23635) PROGRAM 
PUSH DE SAVE PROG 
CALL 4795 INSERT BC SPACES 
POP HL GET PROG 

LD (3635), HL PROG 

POP BC GET LINE LENGTH 
PUSH BC BUT SAVE IT AGAIN 
INC DE TO END LOC OF NEW AREA 
LD HL, (23649) WORKSPACE 
DEC HL 

DEC HL AT LAST CHAR EDIT LINE 
LDDR COPY LINE 

LD HL, (23625) E PPC 
EX DE, HL HL=ADDR/DE=LINE # 


POP BC 

GET LINE 

LENGTH 

LD (HL_) , 
DEC HL 

B 

INSERT 

LINE LENGTH 

LD (HL), 
DEC HL 

C 



LD (HL), 
DEC HL 

E 

INSERT 

LINE # 

LD (HL), 
POP AF 

D 



JP 3624 

MAIN EXEC 

(DO AUTOLIST) 


INITIAL CHANNEL INFORMATION ALSO AT 26688 
4522 00,05 SEND TV (1280) 


A 1 


4524 

OE, OC 

KEY INPUT 

(3086) 

_ 4526 

4B 

K (EYBOARD) 

4527 

00, 05 

SEND TV 

(1280) 

452? 

BF, 11 

ERR J 

(4543) 

4531 

53 

S (CREEN) 


4532 

E7,0A 

INSERT A 

(2791) 

4534 

BF, 11 

ERR J 

(4543) 

4536 

52 

R (WORKSPACE) 

4537 

00, 05 

SEND TV 

(1230) 

453? 

BF, 1 1 

ERR J 

(4543) 

4541 

50 

P (RINTER) 


4542 

80 

END CODE 



ERROR J 

4543 CF 

4544 12 


INVALID I/O DEVICE 


RST 8 ERROR 
J Invalid I/O device 


ALSO AT 
stream 
stream 
stream 
stream 
stream 
stream 
stream 


23568- 
+ FD = 
+ FE = 
+ FF = 
+ 00 — 
+ 01 = 
+ 02 = 
+ 03 ~ 


:3605 
chan K 
chan S 
chan R 
chan K 
chan K 
chan S 
chan P 


INITIAL STREAM DATA 

4545 01,00 

4547 06,00 

454? OB,00 

4551 01,00 

4553 01,00 

4555 06,00 

4557 10,00 

WAIT FOR KEY SUBROUTINE 

455? FD,CB,02,6E READ CHAR 

4563 20,04 

4565 FD,CB,02,DE 

4569 CD,El,11 GET CHAR 

4572 D8 

4573 28,FA 

4575 CF ERR 8 

4576 07 


BIT 5, (IY+2) CL-LHS ON KEYHIT? 

JR NZ, 4 (4569) GET CHAR¬ 
SET 3, (IY+2) MODE CHANGED 

CALL 4577 INPUT CHAR 
RET C 

JR Z, 250 (4569) GET CHAR 
RST 8 ERROR 
8 End of -file 


INPUT ADD SUBROUTINE 


4577 

D? 

INPUT CHAR 

4573 

E5 


4579 

2A,51,5C 


4582 

•~y~r 


4583 



4584 

18, 08 


MAIN 

PRINTING 

ROUTINE 

4586 

IE,30 PUT 

DIGET (OUT COD! 

4588 

83 


4589 

D9 

SEND CHAR 

4590 

E5 


4591 

2A,61,5C 


4594 

08 

CALL SUB 

4595 

3A,BF,5C 


4593 

FE , 02 


4600 

30, OB 


4602 

08 



EXX 

PUSH HL 

LD (HL, (23633) CUR CHANNEL 
INC HL 
INC HL 

JR 8 (4594) CALL SUB 


LD E, 48 OFFSET FOR ZERO 

ADD A, E 

EXX 

PUSH HL 

LD HL, (23633) CUR CHAN 
EX AF, AF’ 

LD A, (23743) CUR CHAN BANK # 
CP 2 

JR NC, 11 (4613) CK CART 

EX AF, AF’ 
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4603 5E 
_4604 23 

4605 56 

4606 EB 

4607 CD,64,12 

4610 El 

4611 D9 

4612 C9 

4613 08 CK CART 

4614 2A,51,5C 

4617 46 

4618 0E,83 
4620 3A,C6,5C 
4623 CB,47 
4625 20,02 

4627 23 

4628 23 

4629 3A,CB,5C CK CART STREAM 

4632 5F 

4633 16,00 

4635 D5 

4636 11,07,00 

4639 19 

4640 E5 

4641 C5 

4642 01,02,00 

4645 C5 

4646 01,00,00 

4649 C5 

4650 CD,DO,65 

4653 El 

4654 D9 

4655 C9 

CHANNEL OPEN SUBROUTINE 


4656 

87 

SELECT CHAN 

4657 

C6, 16 


4659 

6 F 


4660 

26,5C 


4662 

5E 


4663 

n-r 


4664 

56 


4665 

7A 


4666 

B3 


4667 

20,02 


4669 

CF 

ERR 0 

4670 

17 


4671 

FE, 80 

SKIP ERR 

4673 

30, 22 


4675 

IB 


4676 

2A,4F,5C 


4679 

19 



CHANNEL FLAG SUBROUTINE 
4680 22,51,5C SELECT HL 


LD E, (HL) LD DE WITH ADDR 
INC HL 
LD D, (HL) 

EX DE, HL ADDR TO HL 

CALL 4708 CALL JUMP 

POP HL 

EXX 

RET 

EX AF, AF J 

L.D HL, (23633) CUR CHAN 
LD B, (HL) 

LD C, 136 

LD A, (23750) CART FLAGS 
BIT 0, A 

JR N2, 2 (4629) CK CART STREAM 
INC HL 
INC HL 

LD A, (23755) STREAM # 

LD E, A SAVE IN E 

LD D, O 

PUSH DE 

LD DE, 7 

ADD HL, DE 

PUSH HL SET UP TO CALL BANK # 

PUSH BC 

LD BC, 2 

PUSH BC 

LD BC, 0 

PUSH BC 

CALL 26064 CALL BANK 

POP HL 

EXX 

RET 


ADD A, A X2 CALC CHAN BASE ADDR 
ADD A, 22 BASE ADDR CHAN 0= 

LD L, A 23574(5C16) 

LD H, 92 =23552 

LD E, (HL) GET BYTE INTO DE 

INC HL 

LD D, (HL) 

LD A, D 

OR E DE=0? 

JR NZ, 2 (4671)SKIP ERR 
RST 8 ERROR 
O Invalid stream 
CF' 128 END MARKER? 

JR NC, 34 (4708) CALL JUMP 
DEC BC 

LD HL, (23631) CHANS 
ADD HL, DE 


LD (23633), HL CUR CHAN 





4683 3E,00 
- 4685 32,BF,5C 
4688 FD,CB,30,A6 

4692 23 

4693 23 

4694 23 

4695 23 

4697 21,93,12 
4700 CD,6B,13 

4703 DO 

4704 16,00 

4706 5E 

4707 19 

4708 E9 CALL JUMP 

4709 2A,BC,5C CART CHAN 
4712 D6,80 

4714 57 

4715 19 

4716 22,51,5C 

4719 7E 

4720 32,BF,5C 
4523 FD,CB,30,A6 

4727 23 

4728 

4729 '••'3 

4730 23 

4731 23 

4733 3A,BF,5C 

4736 47 

4737 0E,S8 

4739 56 

4740 23 

4741 5E 

4742 62 

4743 6B 

4744 E5 

4745 C5 

4746 01,00,00 

4749 C5 

4750 C5 

4751 CD,DO,65 
4754 C9 


LD A, O 

LD (23743), A CUR CHAN BANh 

RES 4, (IY+48) NOT CHAN K 

INC HL 

INC HL 

INC HL 

INC HL 

LD C, (HL) CHAN CODE TABLE 
CALL 4971 SEARCH (INDEXFR) 
RET NC 
LD D, 0 
LD E, (HL) 

ADD HL, DE 
JP (HL) 

LD HL, (23740) SYSTEM CQNF 
SUB 128 

LD D, A SAVE IN D 
ADD HL, DE 

LD (23633), HL CUR CHAN 
LD A, (HL) 

LD (23743), A CUR CHAN BNK 
RES 4, (IY+48) EDIT ERR'? 

INC HL 
INC HL 
INC HL 
INC HL 
INC HL 
INC HL 

LD A, (2c-.743) CUR CHAN BANK 
LD B, A SAVE IN B 
LD C, 136 
LD D, (HL) 

INC HL 
LD E, (HL) 

LD H, D 
LD L, E 
PUSH HL 
PUSH BC 
LD BC, O 
PUSH BC 
PUSH BC 

CALL 26062 BS SP 
RET 


CHANNEL CODE LOOK-UP TABLE 
4755 4B,06 
4757 53,12 
4759 50,IB 

4761 00 

CHANNEL K FLAG SUBROUTINE 

4762 FD,CB,02,C6 CHAN K FLAGS 
4766 FD,CB,01,AE 

4770 FD,CB,30,E6 
4774 18,04 


CHAN K (4762) 
CHAN S (4776) 
CHAN P (4787) 
END MARKER 


SET O, (IY+2) LOWER SCREEN 
RES 5, (IY+1) KEYHIT OFF 

SET 4, (IY+48) EDIT ON 

JR 4 (4780) COPY OFF 
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CHANNEL S FLAG SUBROUTINE 
4776 ED,CB,02,86 CHAN S FLAGS 
4780 FD,CB,01,8E COPY OFF 

4784 C3,88,08 

CHANNEL P FLAG SUBROUTINE 
4787 FD,CB,01,8E CHAN P FLAGS 

4791 C9 

MAKE ROOM SUBROUTINE 

4792 01,01,00 INSERT 1 SPACE 

4795 E5 INSERT BC SPACES 

4796 CD,BB,IF 

4799 El 

4800 CD,CA,12 
4803 2A,65,5C 

4806 EB 

4807 ED,B8 

4809 C9 

POINTERS SUBROUTINE 

4810 F5 RESET POINTERS(REMG-SZ) 

4811 E5 


RES O, (IY+2) UPPER SCREEN 

RES 1, (IY+l) COPY OFF 

JP 2184 TEMP R-ATTS (RESET COLOR) 


LD BC, 1 
PUSH HL 

CALL 8123 CHECK SiZe(ROOM?) 
POP HL 

CALL 4810 REMG-SZ (POINTERS) 

LD HL, (23653) STACK END 

EX HL, DE 

LDDR 

RET 


PUSH AF 
PUSH HL 


SET 1, (IY+l) PRINTER ON 

RET 


CARTRIDGE POINTERS SUBROUTINE 

4812 21,C4,5C RESET CART POINTERS LD HL, 23748 AT AROS POINTER 


4815 

5E 


4816 



4317 

56 


4818 

E3 


4819 

A7 


4820 

ED, 52 


4822 

19 


4823 

E3 


4824 

30,06 


4826 

EB 


4827 

09 


4828 

EB 


4829 

72 


4330 

2B 


4831 

73 


4832 

21,4B,5C 

NO CART 

4835 

3E , OE 


4837 

FE, 09 

NEXT POINTER 

4839 

28, 04 


4841 

FE, 08 


4343 

20 , OD 


4845 

E5 

8 OR 9 

4846 

21,C6,5C 


4849 

6E 


4850 

CB, 7D 


4852 

El 


4853 

28,03 


4855 

r ~\~r 



LD E, (HL) 

INC HL 
LD D, (HL) 

EX (SP), HL 

AND A CLEAR CARRY 

SBC HL, DE 

ADD HL, DE 

EX (SP), HL 

JR NC, 6 (4832) NO CART 
EX DE, HL 
ADD HL, DE 
EX DE, HL 
LD (HL), D 

DEC HL . i 

LD (HL), E 

LD HL, 23527 VARS 

LD A, 14 # OF VARIABLES TO CHANGE 
CP 9 

JR Z, 4 (4845) 8 OR 9 
CP 8 F:EQ CART CHANGE 

JR NZ, 13 (4858) CONTINUE 
PUSH HL 

LD HL, 23750 AT CART FLAGS 
LD L, (HL) FLAG TO L 
BIT 7, L CART PRESENT? 

POP HL 

JR Z, 3 (4858) CONTINUE 
INC HL 



4856 

18, 14 


4858 

5E _ ... 

--CONTINUE 

4859 

n T 


4860 

56 


4861 

E3 


4862 

A7 


4863 

ED, 52 


4865 

19 


4866 

E3 


4367 

30, 09 


4869 

D5 


4870 

EB 


4371 

09 


4872 

EB 


4873 

72 


4874 

2B 


4875 

73 


4376 



4877 

D1 


4878 


POINTER DONE 

4879 

3D 


4830 

20, D3 


4882 

EB 


4883 

D1 


4884 

FI 


4385 

A7 


4886 

ED, 52 


4888 

44 


4889 

4D 


4890 

03 


4891 

19 


4892 

EB 


4893 

C9 


COLLECT A LINE SUBROUTINE 

4894 

00 , 00 

LINE 0 

4896 

EB 

LINE # A 

4897 

11,IE,13 


4900 

7E 

GET LINE # 

4901 

E6 , CO 


4903 

20, F7 


4905 

56 


4906 

23 


4907 

5E 


4908 

C9 


RESERVE SPACE 

SUBROUTINE (PART 

4909 

2A,63,5C 

RESERVE SPACE 

4912 

2B 


4913 

CD,BB,12 


4916 

n-r 


4917 

23 


4918 

Cl 


4919 

ED,43,61, 

5C 

4923 

Cl 
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JR 20 (4878) POINTER DONE 
LD E, (HL) 

INC HL 
LD D, (HL) 

EX (SP), HL 

AND A CLEAR CARRY 

SBC HL, DE 

ADD HL, DE 

EX (SP), HL 

JR NC, 9 (4873) POINTER DONE 

PUSH DE 

EX DE, HL 

ADD HL, BC 

EX DE, HL 

LD (HL), D 

DEC HL 

LD (HL), E 

INC HL 

POP DE 

INC HL NEXT VARIABLE 

DEC A REDUCE COUNT 

JR NZ, 211 (4837) NEXT POINTER 

EX DE, HL 

POP DE 

POP AF 

AND A CREAR CARRY 

SBC HL, DE 

LD B, H 

LD C, L 

INC BC 

ADD HL, BC 

EX DE, HL 

RET 


NOP,NOP 
EX DE, HL 

LD DE, 4894 USE LINE # 0 
LD A, (HL) 

AND 192 SAVE ONLY 2 HI BITS 
JR NZ, 247 (4896) LINE # A 
LD D, (HL) LINE # TO DE 
INC HL ' 

LD E, (HL) 

RET 

OF RST 48) 

LD HL, (23651) STACK BOTTOM 
DEC HL 

CALL 4795 INSERT 1 SPACE 
INC HL 
INC HL 
POP BC 

LD (23649). BC WORK SPACE 
POP BC 


EX DE, HL 
INC HL 
RET 
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4924 EB 

4925 23 

4926 C9 


SET MINIMUM (WORKSPACE) SUBROUTINE 


4927 2A,59,5C Clear Edit Line 
4930 36,OD 
4932 22,5B,5C 

4935 23 

4936 36,SO 
4938 23 

49317 22, 6 ) , 5C 

4942 2A,61,5C SET WORK 

4945 22,63,5C 

4948 2A,63,5C SET STACK(RESET) 
4951 22,65,5C 

4954 E5 

4955 21,92,5C 
4958 22, 68 ,5C 

4961 El 

4962 C9 


LD HL, (23641) E LINE 
LD (HL), 13 

LD (23643), HL K CUR ADDR 
INC HL 

LD (HL), 128 END MARKER 

INC HL 

LD (23649), HL WORKSPACE 
LD HL, (23649) 

LD (23651), HL STACK BOTTOM 
LD HL, (23651) 

LD (23653) , HL STACK END 

PUSH HL 

LD HL, 23698 MEM BOT TO 
LD (23656), HL MEM 
POP HL 
RET 


RECLAIM THE EDIT LINE SUBROUTINE 

4963 ED,5B,59,5C RECLAIM(X-T-HL) LD DE, (23641) E LINF 


4967 

C3 

,4D,17 

EDIT LINE 

SEARCH 

(INDEXER) 

SUBROUTINE 

4970 

■'"? “T 


SEARCH- 

4971 

7E 


SEARCH 

4972 

A7 



4973 

ca 



4974 

B9 



4975 

OT 



4976 

20 

,F 8 


4978 

37 



4979 

C9 




JP 5^65 DEL DE (RECLAIM-2) 


INC HL 
LD A, (HL) 

AND A CREAR CARRY 
RET Z 

CP C SEARCH CHAR IS IN C 
INC HL 

JR NZ, 248 (4970) SEARCH -1 

SCF FOUND 

RET 


SEARCH CARTRIDGE SYSTEM CONFIGURATION SUBF:OUTINE 

4980 2A,BC,5C SeaRch CHan SysCon LD HL, (23740) SYStem CONfiqur 


4983 11,0C ,00 

4986 19 

4987 7E 

4988 FE,80 
4990 28,1A 


4987 7E 

4988 FE,80 
4990 28,1A 

4992 23 

4993 23 

4994 FE,01 


SR CH LOOP 


LD DE, 12 
ADD HL, DE 
LD A, (HL) 
CP 128 
JR NZ, 26 
INC HL 
INC HL 
CP 1 


ation ADDR 
12 th posn i 

END MARKER? 

(5002) SR CH—2 


4996 20,04 

4998 7E 

4999 B9 

5000 28,12 
5002 E5 


JR NZ, 4 (50189 SR CH-1 
LD A, (HL) 

CP C CHAN LOOKING FOR 
JR Z, 18 (5020) SR CH-OUT 
PUSH HL 


5003 EB 

5004 11,18,00 
5007 19 


EX DE, HL 
LD DE, 24 
ADD HL, DE 


SR CH-1 
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EX DE, HL 

-- —POP HL 

PUSH DE 
LD DE, 22 
ADD HL, DE 
POP DE 

JF: 225 (4987) SR CH-LOOP 
SR CH-2 AND A CLEAR CARRY 
RET 

SR CH-OUT DEC HL 
SCF 
RET 


5008 EB 

5009 El 

5010 D5 

5011 11,16,00 

5014 19 

5015 D1 

5016 IS,El 

5018 A7 

5019 C9 

5020 2B 

5021 37 

5022 C? 

CLOSE # COMMAND ROUTINE 

5023 CD,OF,14 CLOSE 

5026 78 

5027 B1 

5028 C8 

5029 CD,BE,13 

5O0'2 01,00,00 ReSTore STReam 
5035 11,E2,A3 

5038 EB 

5039 19 

5040 38,07 
5042 01,CF,11 

5045 09 

5046 4E 

5047 23 

5048 46 

5049 EB ENTER DATA 

5050 71 

5051 23 

5052 70 

5053 C9 

CLOSE CHANNEL (-2) SUBROUTINE 

5054 E5 CLose CHANeL 

5055 78 

5056 FE,80 
5058 30,14 
5060 2A,4F,5C 

5063 09 

5064 23 

5065 23 

5066 23 

5067 4E 

5068 EB 

5069 21,07,14 
5072 CD,6B,13 

5075 4E 

5076 06,00 

5078 09 

5079 E9 


CALL 5135 STREAM DATA 
LD A, B 

OR B BC=0? 

RET Z NONE THERE 

CALL 5045 CLOSE CHANNEL 
LD BC, O 

LD DE, 41954 PREPARE TO IDENTIFY 
EX DE,HL USE OF STREAMS O TO 
ADD HL, DE OTHERS CAUSE SCF 
JR C, 7 (5049) ENTER DATA 
LD BC, 4559 STREAMS TABLE 
ADD HL, BC 
LD C, (HL) 

INC HL 
LD B, (HL) 

EX DE, HL 
LD (HL), C 
INC HL 
LD (HL), B 
RET 


PUSH HL 
LD A, B 

CP 128 END MARKER? 

JR NC, 20 (5080) SYS CON CK 
LD HL, (23651) CHANS 
ADD HL, BC 

INC HL SKIP SUBROUTINE ADDR 

INC HL 
INC HL 
LD C, (HL) 

EX DE, HL 

LD HL, 5127 STREAMS TBLE 
CALL 4971 SEARCH 


LD C, (HL) 

LOAD 

DATA 

LD B, 0 



ADD HL, BC 

ADD 

OFFSET 

JP (HL) 




SYSTEM CONFIGURATION CHECK FOR CLOSE SUBROUTINE 


48 


5080 

D6 , 80 SYS CONF CK 

SUB 128 

5082 

47 ___ 

.LD B, A 

5083 

2A,BC,5C 

LD HL, (23 

5086 

09 

ADD HL, BC 

5087 

7E 

LD A, (HL.) 

5088 

FE, 00 

CP 0 

5090 

C8 

RET Z 

5091 

FE, 80 

CP 128 EN 

5093 

C8 

RET Z 

5094 

'“>”7 

INC HL 

5095 

46 

LD B, (HL) 

5096 

T 

INC HL 

5097 

OT 

INC HL 

5098 

n ~r 

INC HL 

5099 

'*? T 

INC HL 

5100 

5E 

LD E, (HL) 

5101 


INC HL 

5102 

56 

LD D, (HL) 

5103 

62 

LD H, D 

5104 

6B 

LD L, E 

5105 

3A,CB,5C 

LD A, (237! 

5108 

5F 

LD E, A 

5109 

16 ,00 

LD D, 0 

5111 

D5 

PUSH DE Rl 

5112 

E5 

PUSH HL 

5113 

C5 

PUSH BC 

5114 

01,02,00 

LD BC, 2 

5117 

C5 

PUSH BC 

5118 

01 ,00,00 

LD BC, 0 

5121 

C5 

PUSH BC 

5122 

CD,DO,65 

CALL 26064 

5125 

El ’ 

POP HL 

5126 

C9 

RET 

CLOSE 

5127 

: STREAMS LOOKUP TABLE 

4B, 05 

CHAN K (51: 

5129 

53, 03 

CHAN S (51: 

5131 

50 ,01 

CHAN P (51: 

CLOSE 

5133 

: STREAM SUBROUTINE 

El CLOSE STREAM 

POP HL 

5134 

C9 

RET 


END MARKER? 


SKIP SUBRUTINE ADDR 


' STREAMS 

RETURN ADDR 

SET UP CALL BANK 


CALL BANK 


STREAM DATA SUBROUTINE 
5135 CD,IE,IF STREAM DATA 
5138 32,CB,5C 
5141 FE,10 
5143 38,02 

5145 CF ERR N 

5146 17 

5147 C6,03 SKIP REPORT 

5149 07 

5150 21,10,5C 

5153 79 

5154 06,00 


CALL 7966 FIX U1 (SET SINGLE INT) 
LD (23755), A STREAM # 

CP 16 

JR C, 2 (5147) SKIP REPORT 
RST 8 ERROR 
N Statement lost 
ADD A, 3 
RLC A X2 

LD HL, 23568 STREAMS 
LD C, A STREAM # TO C 
LD B, 0 
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5156 

09 


5157 

4E 


5158 

n -r 


5159 

46 


5160 

2B 


5161 

C9 


□ PEN 

# COMMAND ROUTINE 

5162 

FE, 2C 

OPEN 

5164 

28,05 


5166 

CD,44,IB 


5169 

18 , OB 


5171 

CD,89,28 GET 

NEXT ARGUM. 

5174 

20,06 


5176 

CD,69,25 


5179 

CD,44,IB 


1_‘ iui, 

EF 

DO FP CALC 

5183 

01 


5184 

38 


51S5 

CD,OF,14 


5188 

78 


5189 

B1 


5190 

23, 16 


5192 

EB 


5193 

2A,4F,5C 


5196 

09 


5197 

/-•j-n- 


5198 

~r 


5199 



5200 

7E 


5201 

EB 


5202 

FE, 4B 


5204 

23, 08 


5206 

FE, 53 


5208 

28,04 


5210 

FE, 50 


5212 

20, BB 


5214 

CD,65,14 

OPEN IT 

5217 

73 


5118 

n ~r 


5119 

72 


5220 

C9 


OPEN 

CHANNEL (-2) 

SUBROUTINE 

5221 

E5 

OPEN CHAN 

cr o •—> 
vJ j! X_ j! 

CD,AF,2F 


tro^c: 

OB 


5226 

78 


5227 

B1 


5228 

28,04 


5230 

CF 

ERR J 

5231 

12 


\-J X_ X- 

CF 

ERR F 

5233 

OE 



ADD HL, BC 

(HL) GET SUBROUTINE ADDR 

INC HL 
LD B, (HL) 

DEC HL 
RET 


CP 44 " , "? 

JR Z, 5 (5171) GET NEXT ARGUMENT 
CALL 6980 END? 

JR 11 (5182) DP FP CLC 

CALL 10377 INTERPRET? 

JR NZ, 6 (5182) DO FP CALC 
CALL 9577 SKIP IT 
CALL 6390 END? 

RST 40 DO FP CALC 

EXCHANGE 

END FP 

CALL 5135 STREAM DATA 
LD A, B 

OR C BC=0? 

JR Z, 22 (5214) OPEN IT 
EX DE, HL 

LD HL, (23631) CHANS 

ADD HL, BC 

INC HL 

INC HL 

INC HL 

LD A, (HL) CODE TO A 
EX DE,HL 
CP 75 K? 

JR Z, 8 (5214) OPEN IT 
CP 83 S? 

JR Z, 4 (5214) OPEN IT 
CP 80 P? 

JR NZ, 187 (5144) ERROR!!! 

SHOULD BE TO 5146 (JR 189) ERR N 

CALL 5221 OPEN CHAN 

LD (HL), E ENTER STREAM DATA 

INC HL 

LD (HL), D 

RET 


PUSH HL 

CALL 12207 GET PARAMETERS 
DEC BC 
LD A, B 
OR C BC=0? 

JR Z, 4 (5234) SKIP ERRS 
RST 8 ERROR 
J Invalid I/O device 
RST 8 ERROR 
F Invalid file name 



5o 


5234 

03 

cr cr 

JZu'J 

C5 

cr — r / 

U xL O 

1A 

5237 

EE 6 , DF 

5239 

4F 

5240 

21,87,14 

5243 

CD,6B,13 

5246 

30 , 06 

5248 

4E 

5249 

06, 00 

i— n cr h 

U -,L v.J .1 

09 

crncr'n 
U .iL U s-L 

Cl 

cr '-i cr ~v 
JxlJ „ • 

E9 

5254 

1 8 , F .6 

CALL 

EXTENDED 

5256 

CD,74,13 

5259 

30, E1 

5261 

Cl 

5262 

OB 

5263 

78 

5264 

B1 

5265 

20, DB 

5267 

D5 

5268 

EB 

cr p L. Q 
P .iL Q 7 

CD,B9,25 

5272 

EB 

5273 

46 

5274 

OE, 88 

5276 

p ~r 

5277 

23 

5278 

5E 

5279 


5280 

56 

5281 

62 

5282 

6 B 

5283 

3A,CB,5C 

5286 

5F 

5287 

16, 00 

5289 

D5 

5290 

E5 

5291 

C5 

5292 

2A,65,5C 

5295 

4E 

cr op L. 

Ji.7U 

2 B 

5297 

22,65,5C 

5300 

06 , 00 

5302 

03 

5303 

03 

5304 

C5 

5305 

01 , 00,00 

5308 

C5 

5309 

CD,DO,65 

5312 

D 1 

5313 

7A 


SKIP ERRS 


GET ERR 


INC BC 

PUSH BC- - - 

LD A, (DE) 

AND 233 SAVE ONLY 3 HIGH BITS 
LD C, A SAVE IN C 
LD HL, 5319 OPEN STREAM LOOKUP 
CALL 4971 SEARCH TABLE 

JR NC, 6 (5254) GET ERR 
LD C, (HL) 

LD B, 0 
ADD HL, BC 
POP BC 
JP (HL) 

JR 230 (5230) ERR J 

(TO PASS DATA TO BANK 254) 

CALL 4980 SEARCH SYS CONF 

JR NC, 225 ERR J 

POP BC 

DEC BC 

LD A, B 

OR C BC=0? 

JR NZ, 219 (5230) ERR J 

PUSH DE 

EX DE, HL 

CALL 9657 PASS EM 

EX DE, HL 

L.D B, (HL) 

LD C, 126 
INC HL 
INC HL 
LD E, (HL) 

INC HL 
LD D, (HL) 

LD H, D 
LD L, E 

LD A, (23755) STREAM # 

LD E, A 
LD D, O 
PUSH DE 

PUSH HL . i 

PUSH BC 

LD HL, (23653) STACK END 
LD C, (HL) 

DEC HL 

LD (23653), HL 
LD B, O 
INC BC 
INC BC 

PUSH BC SET UP CALL BANK 
LD BC, O 
PUSH BC 

CALL 26064 CALL BANK 
POP DE 
LD A, D 



51 



14 C6,80 

16 57 

17 El 

18 C9 


AND A, 128 SAVE HI BIT ONLY 
LD D,- A —SAVE IN D 
POP HL 
RET 


OPEN STREAM LOOK UP TABLE 

5318 4B,06 

5321 53,08 

5323 50,0A 

5325 00 


CHAN K (5326) 
CHAN S (5330) 
CHAN P (5334) 
END MARKER 


OPEN K SUBROUTINE 

5326 IE,01 OPEN K 

5328 18,06 


LD E, 1 

JR 6 (5336) OPEN END 


OPEN S SUBROUTINE 

5330 IE,06 OPEN S 

5332 18,02 


LD E, 6 

JR 2 (5336) OPEN END 



LD E, 16 
DEC BC 
LD A, B 

OR C BC =0? 

JP NZ 5232 ERR F 
LD D, A 
POP HL 
RET 


LIST AND LLIST COMMAND ROUTINES 


ED,73,3F,5C 


FD, 36 
CD, EA 
FD, CB 
FD, 46 
CD, 7F 
FD, CB 


, 02 , 10 

, os 

, 02,06 
,31 
, 09 

, 02,86 


FD,CB,30,C6 
2A,49,5C 
ED,5B,6C,5C 
A7 


AUTO LIST LD (23615), SP LIST SP 

LD (IY+2), 16 SET AUTO LIST 

CALL 2282 CLS 

SET O, (IY+2) USE BOTTOM SCREEN 

LD B, (IY+49) DF SIZE 

CALL 2431 CLS-L 

RES O, (IY+2) USE TOP SCREEN 

SET O, (IY+43) AUTO LIST ON 

LD HL, (23625) E PPC 

LD DE, (23660) S TOP 

AND A CLEAR CARRY 

SBC HL, DE 

ADD HL, DE 

JR C, 34 (5421) SET TOP LINE # 
PUSH DE 


5388 CD,D6,16 
5391 11,CO,02 

5394 EB 

5395 ED,52 

5397 E3 

5398 CD,D6,16 
5401 Cl 


CALL 5846 FIND LINE ADDR 
LD DE, 704 ABOUT A SCREEN FULL 
EX DE, HL 

SBC HL, DE GO BACK A SCREEN 
EX (SP), HL 

CALL 5846 FIND LINE ADDR 
POP BC 


5402 C5 FIND LINE LOOP 

5403 CD,20,17 
5406 Cl 


PUSH BC 

CALL 5920 RECORD LENGTH (NEXT 1) 
POP BC 



52 


5407 

09 


5408 

38, OE 


541 0 

EB 


541 1 

56 


5412 

n-r 


5413 

5E 


5414 

2B 


5415 

ED,53,6C,5C 


541? 

18, ED 


5421 

22,6C,5C SET 

TOP LINE # 

5424 

2A,6C,5C GET 

TOP LINE # 

5427 

CD,D6,16 


5430 

28,01 


5432 

EB 


5433 

CD,7F,15 CALL 

FLAG EARLI 

5436 

FD,CB,02,A6 


5440 

C9 


LLIS1 

ENTRY POINT 


5441 

3E, 03 

K-LLIST 

5443 

18,02 


LIST 

ENTRY POINT 


5445 

3E, 02 

K—LIST 

5447 

FD,36,02,00 

LIST-1 

5451 

CD,89,28 


5454 

C4,30,12 


5457 

DF 


5458 

CD,OF,22 


5461 

38,14 


5463 

DF 


5464 

FE,3B 


5466 

28,04 


5468 

FE,2C 


5470 

20 , 06 


5472 

E7 GET 

NEXT CHAR 

5473 

CD,E5,IB 


5476 

18,08 


5478 

CD,51,1C USE LINE 0 

5481 

18, 03 


5483 

CD,49,1C GET 

LIST LINE 

5486 

CD,44,IB 

EDITING? 

5489 

CD,23,IF 


5492 

78 


5493 

E6,3F 


5495 

67 


5496 

69 


5497 

22,49,5C 


5500 

CD,D6,16 


5503 

IE,01 FLAG EARLIER 

5505 

CD,B1,15 

LIST ALL 

5508 

D7 


5509 

FD,CB,02,66 


5513 

28, F6 


5515 

3A,6B,5C 



ADD HL, BC 

JR C, 14 (5424) GET TOP LINE # 

EX DE, HL 

LD D, (HL) NEXT LINE ADDR 
INC HL 
LD E, (HL) 

DEC HL 

LD (23660), DE S TOP SAVE NEW # 
JR 237 (5402) FIND LINE LOOP 
LD (23660), HL S TOP 
LD HL, (23660) 

CALL 5846 FIND LINE ADDR 

JR Z, 1 (5433) CALL FLAG EARLIER 

EX DE, HL 

CALL 5503 FLAG EARLIER 
RES 4, (IY+2) AUTO LIST OFF 

RET 


LD A, 3 LJSE STREAM 3 
JR 2 (5447) LIST-1 


LD A, 2 USE STREAM 2 

LD (IY+2), O RESET TV FLAGS 

CALL 10377 INTERPRET? 

CALL NZ, 4656 SELECT CHAN 
RST 24 GET CHAR 

CALL 8917 STRITO (STREAM ALTER?) 
JR C, 20 (5483) GET LIST LINE 
RST 24 GET CHAR 
CP 59 ; ? 

JR Z, 4 (5472) GET NEXT CHAR 
CP 44 J ? 

JR NZ, 6 (5478) USE LINE 0 
RST 32 NEXT CHAR- 
CALL 7141 TEM 6 
JR 8 (5486) EDITING? 

CALL 7249 STK ZERO 
JR 3 (5486) EDITING? 

CALL 7241 OPT NO (GET #> 

CALL 6980 END? 

CALL 7971 FIX U GET SINGLE # 
LD A, B 

AND 63 SAVE 5 LOW BITS 
LD H, A 

LD L, C 

LD (23625), HL E PPC 
CALL 5846 FIND LINE ADDR 
LD E, 1 

CALL 5537 PUT STRING (LINE) 

RST 16 PRINT CHAR 

BIT 4, (IY+2) AUTO LIST? 

JR Z, 246 (5505) LIST ALL 

LD A, (23659) DF SiZe 




53 


u Cj xl - j. 

5524 


S FD,96.4F 
1 20,EE 
AB 

r o 


E5 
5526 D5 


INSERT NEW LINE 


SUB (IY+79) PRINT LINE tt 

JR NZ, 23S (5505) SCREEN NOT FULL 

XOR E f* 

RET Z 

PUSH HL IF CURRENT LINE MISSING 
PUSH DE CHANGE S TOP AND ADD IT 


5527 

21 , 

60, 

cr r-i 

jL 






LD 

HL, 23 

660 

AT S TOP 


557.0 

r n 

5B , 

1 cj 






CAL 

1 cr -7 -r 

L_ •_ J i s... 

NE 

XT LINE 


cr CT T'- -T 
..... ,_j 

D 1 








POP 

DE 




5534 

El 








POP 

HL 




cr i~- ~t cr 

1 O 

•L « 

EG 







JR 

224 (5 

505 

> LIST ALL 


PR IN1 

A 

WHC 

i P 

BAS I 

i • 

LINE 

SUE 

ROUTINE 




5 5.3 7 

p r- 

L_i./ h 

4B, 

49 , 

5C p 

UT 

STF 

(LINE) 

LD 

BC, (2 

367 

5) E PPG 


554 1 

CD, 

EE , 

1 






CAL 

L 5S64 

CP 

BC (LINES) 


cr cr q st 

16, 

-r p 







LD 

D, 62 


«. 


5546 


(") f-J 







J R 

Z, 5 ( 

cr cr. cr 

3) SAVE LI 

NE 

5548 

11 , 

00 , 

00 




LP 

0 

LD 

DE , 0 




5551 

CB, 

13 







RL 

E E= 1 

IF 

BEFORE ? 0 

IF 

cr cr cr 
•_J -.J j 

FD, 

/ *..j i| 

2 D 

f"' ! | J — 

CO hi V \z. 

L. 

INE 

MARK 

ER 

LD 

(IY+45 

) , ! 

E STORE IN 

B 

cr »:r cr / 
j ...j ^_i Cj 

7E 








LD 

A, (HL 

) 



cr irr cr ~7 

FE, 

40 







CP 

64 L 

t «::• t 

j. -_j * 

INS FINISHED? 

5559 

Cl 








POP 

BC 





5560 DO 

5561 C5 

5562 CD,95,17 PRINT LINE # 


RET NC 
PUSH BC 

CALL 6037 PUT LINE # 
INC HL 


cr cr >_ -j 

V J '..J O / 

v ;t 




5568 

FD, 

p 

• to* 5 

O 1 

86 

5572 

/ H 




rr cr —r~r 
•-J -.J / 

A'7 




5574 

00 

j— , 

cr 



5576 

D7 




cr cr ~r -7 

crn 

i A_- q 

CB, 

O 1 

J. q 

06 PRINT LINE 

crcm i 
JJO I 

D5 



PRINT LINE-I 

nr cr n 
x-J •. J C* 

EB 




5583 

FD, 

CB, 

30, 

96 

cr cr o “7 
%--■ •_ J v_> 

21, 

7 D 

5C 


cr cr r-. 

7-* J 

CB, 

96 




FD, 

CB, 

/ a 

l r— 

toe. 

5596 

rj 

- 4 - a; 

O .P 



5598 

r-p 

«_• A~ ! , 

r*« z.. 

JU- 



5600 

2 A , 

PF 

v™‘ 1 q 

5C 

SYNTAX ERROR? 

5603 

A7 




5604 

ED, 

cr '7. 



cr / t 

■-J *._« 

20 

05 



5608 

' 1 — , 

T r*~ 

0 r 



5610 

CD , 

OD, 

16 


«=z jl 1 ~r 

X 

r~- r\ 

L/ i_- q 

2D, 

1 L. 

PRINT CURSOR? 

5616 

EB 




5617 

7E 




561 a 

CD, 

02, 

1 JL 
x 1_* 


5621 

'73 




cr ' nn 
to xl 

FE, 

OD 




INC HL 

Cl 

INC HL 


RES 0, 

(IY+1) 

LD A, D 


AND A 

CLEAR 

JR Z, 5 

< 5581 

RST 16 

PRINT 

SET 0, 

< IY+1) 

PUSH DE 


EX DE, 

HL 

RES 2, 

(IY+4S 

LD HL, 

23611 

RES 2, 

(HL) K 

BIT 5, 

i - T V cr cr 

JR Z, 2 

< 5600 

SET 2, 

(HL) ! 

LD HL, 

(23647 

AND A C! 

LEAR C 

SBC HL, 

DE 


PRINT LINE-1 


r\ T 


T FLAGS 


-•47) X PNTR TIME FOR 


JR NZ, 5 (5613) PRINT CURSOR? 
LD A, 63 FLASHING "?" 

CALL 5645 FLASH A 
CALL 5677 PRINT CURSOR 
EX DE, HL 
LD A, (HL) 

CALL 5634 SKIP SLUG PRINT 
INC HL 

CP 13 ENTER? 







54 


5624 

28, 06 


5626 

EB 


5627 

CD,83,16 


5630 

18, EO 


5632 

D1 

PRINT LINE END 

5633 

C9 


SKIP 

SLUG (FP 

NUMBER) SUBROUT 

5634 

FE, OE 

SKIP SLUG PRINT 

5636 

CO 


5637 

r~y -r- 


563S 

23 


5639 

n -y- 


5640 

*-y ~r 


5641 



5642 

n -t 


5643 

73 


5644 

C9 


PRINT A FLASHING CHARACTER SU1 

5645 

D9 

FLASH A CHAR 

5646 

2A,SF,5C 


5649 

E5 


5650 

CB, BC 

FLASH OFF 

5652 

CB, FD 


5654 

22,8F,5C 


5657 

21,91,5C 


5660 

56 


5661 

D5 


5662 

36,00 


5664 

CD,00,05 


5667 

El 


5668 

FD,74,57 


5671 

El 


5672 

22,8F,5C 


5675 

D9 


■=; f-~! L. 
\J O J K-' 

C9 


PRINT THE CURSOR ROUTINE 

5677 

2A,5B,5C 

PRINT CURSOR 

5680 

A7 


5681 

ED, 52 


5683 

CO 


5684 

3A,41,5C 


5687 

CB, 07 


5689 

28, 04 


5691 

C6,43 

SET E 2< G 

5693 

18, 16 


5695 

21,3B,5C 

SKIP SET 

5698 

CB, 9E 


5700 

3E,4B 


5702 

CB, 56 


5704 

28, OB 


5706 

CB, DE 


5708 

3C 



JR Z, 6 (5630) PRINT LINE END 
EX DE, HL 

CALL 5763 OUT CHAR 
JR 224 (5600) SYNTAX ERR? 

POP DE 
RET 

NE 

CP 14 SLUG? 

RET NZ 
INC HL 
INC HL 
INC HL 
INC HL 
INC HL 
INC HL 
LD A, (HL) 

RET 

ROUTINE 

EXX 

LD HL, (23695) H=ATTR T/L=MASK T 
PUSH HL 
RES 7, H 
SET 7, L 

LD (23695), HL RELOAD 

LD HL, 23697 AT P FLAG 

LD D, (HL) TO D 

PUSH DE SAVE IT 

LD (HL) , 0 CLEAR F' FLAG 

CALL 1280 SEND TV 

POP HL 

LD (IY+S7), H RESTORE P FLAG 

POP HL RESTORE ATTR T/MASK T 

LD (23695), HL 

EXX 

RET 


LD HL, (23643) CUR ADDR 
AND A CLEAR CARRY 
SBC HL, DE 
RET NZ 

LD A, (23617) MODE 
RLC A 

JR Z, 4 (5695) SKIP SET 
ADD A, 67 E OR G 
JR 22 (5717) PRINT CUR END 
LD HL, (23611) 

RES 3, (HL) K MODE 
LD A, 75 K 

BIT 2, (HL) TO PRINTER? 

JR Z, (5717) PRINT CUR END 
SET 3, (HL) L MODE 
INC A (NOW L) 
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5709 

FD,CB , 

30,5E 



BIT 3, (IY+48) SHIFT ON? 

5713 

28,02 




JR 2, 2 (5717) PRINT CUR END 

5715 

3E, 43 




LD A, 67 C 

5717 

D5 

PRINT CUR END 

PUSH DE 

5718 

CD,0D, 

16 



CALL 5645 FLASH A 

5721 

D1 




POP DE 

5722 

C9 




RET 

FIND 

NEXT LINE SUBROUTINE 


5723 

5E 


NEXT 

LINE 

LD E, (HL) 

5724 

s-y-y- 




INC HL 

5725 

56 




LD D, (HL) LINE LEN IN DE 

7*"> 

J «_J 

E5 




PUSH HL 

cr "7 r> ~7 

w.* / -C_ / 

EB 




EX DE, HL 

5 720 

n ~r 




INC HL 

5729 

CD,D6, 

16 



CALL 5846 FIND LINE ADDR 

5732 

CD,24, 

13 



CALL 4900 GET LINE 

5735 

El 




POP HL 

5736 

FD,CB, 

37,6E 

STORE 

LINE 

BIT 5, (IY+55) INPUT? 

5740 

CO 




RET NZ 

5741 

79 




LD (HL), D INSERT LINE LENGTH 

5742 

2B 




DEC HL IN INPUT LINE 

5743 

73 




LD (HL), E 

5744 

C'9 




RET 

PRINTING CHARACTERS IN 

A BASIC 

LINE SUBROUTINE 

5745 

7B prINt 

CHAR in 

line 

LD A, E 32 = SPACE, 255 = NONE 

5746 

A7 




AND A CLEAR FLAGS 

5747 

F8 




RET N CHAR >127 

5748 

18, OD 




JR 13 (5763) OUT CHAR 

5750 

AF 

OUT SPACE # 

XOR A CLEAR A S< CARRY 

5751 

09 

OUT 

SPACE 

LOOP 

ADD HL, DE 

5752 

3C 




INC A COUNT EACH TRIAL 

5753 

38, FC 




JR C, 252 (5751) OUT SPACE LOOP 

5755 

ED, 42 




SBC HL, DE 

5757 

3D 




DEC A 

5758 

28, FI 




JR Z, 241 (5745) PRINT CHAR 

5760 

C3,EA, 

11 



JP 4586 PUT DIGET (OUT CODE) 

5763 

FD,CB, 

01, A6 

OUT 

CHAR 

RES 4, (IY+1) TOKEN OFF 

5767 

FD,CB, 

01,56 



BIT 2, (IY+1) MODE? 

5771 

28, 04 




JR Z, 4 (5777) NUMERIC? 

5773 

FD,CB, 

01, E6 



SET 4, (IY+1) TOKEN ON 

5777 

CD,D9, 

30 

NUMERIC? 

CALL 12505 DIGET? } 

5780 

30,3E 




JR NC, 62 (5844) PRINT CHAR 

5782 

FE, OC 




CP 12 DELETE? 

5784 

28,36 




JR Z, 54 (5840) SET L MODE 

5786 

FE, 21 




CP 33 SPACE OR LESS? 

5788 

38,36 




JR C, 54 (5844) PRINT CHAR 

5790 

FD,CB, 

01,96 



RES 2, (IY+1 ) K MODE 

5794 

FE, 7B 




CP 123 ON ERR? 

5796 

20,06 




JR NZ, 6 (5804) THEN? 

5798 

FD,CB, 

01,66 



BIT 4, (IY+1 ) TOKEN OR SLUG? 

5802 

28,28 




JR Z, 40 (5844) PRINT CHAR 

5804 

FE , CB 



THEN? 

CP 203 THEN? 

5806 

28,24 




JR Z, 36 (5844) PRINT CHAR 




56 


5808 

FE,3A 




58 ia 

20, OE- 

_ 



5812 

FD,CB, 

37,6E 

DO 

: 

5816 

20, 16 




5818 

FD,CB, 

30,56 



5822 

28, 14 




5826 

FE, 22 


CK 

QUOTE 

5828 

20, OA 




5830 

F5 

SET/RESET 

STREAM 

5831 

3A,6A, 

5C 



5834 

EE, 04 




5836 

32,6A, 

5C 



5839 

FI 




5840 

FD,CB, 

01 , D6 

SET L 

MODE 

5344 

D7 


PRINT 

CHAR 

5845 

C9 





CP 58 : ? 

JR NZ, CK QUOTE 

BIT 5, (IY+55) INPUT? 

JR NZ, 22 (5840) SET L MODE 
BIT 2, (IY+48) INSIDE STRING? 

JR NZ, 20 (5844) SET L MODE 
CP 34 "?" 

JR NZ, 10 (5840) SET L MODE 
PUSH AF 


LD A, (23658) FLAGS 2 
XOR 4 FLIP INSIDE QUOTE 
LD (23658), A RELOAD IT 
POP AF 

SET 2, (IY+1) L MODE ON 

RST 16 PRINT CHAR 

RET 


LINE 

ADDRESS SUBROUTINE 


5846 

E5 FIND LINE 

ADDR 

5347 

2A,53,5C 


5850 

54 


5851 

5D 


5352 

Cl FIND LINE LOOP 

5353 

CD,E8,16 


5856 

DO 


5857 

C5 


5858 

CD,20,17 GO TO NEXT 

LINE 

5861 

EB 


5862 

18, F4 



PUSH HL 

LD HL, (23635) PROG START 
LD D, H 
LD E, L 
POP BC 

CALL 5864 CP-BC (LINE #'S) 

RET NC FOUND 

PUSH BC 

CALL 5920 RECORD LENGTH(NEXT 1) 
EX DE, HL 

JR 244 (5852) FIND LINE LOOP 


COMPARE LINE NUMBERS SUBROUTINE 


5864 7E CP-BC(LINES) 

5865 B8 

5866 CO 

5867 23 

5868 7E 

5869 2B 

5870 B9 

5871 C9 

FIND EACH STATEMENT SUBROUTINE 
5372 23 FIND SUB LINE 

5873 23 

5874 23 

5875 22,5D,5C EACH STATEMENT 
5378 OE,00 

5880 15 LOOP 

5881 C8 

5882 E7 

5883 BB 

5884 20,04 
5386 A7 

5887 C9 

5888 23 

5889 7E 


LD A, (HL) 

CP B 

RET NZ, HIGH BYTES <> 

INC HL 
LD A, (HL) 

DEC HL RESTORE HL TO 1ST BYTE 
CP C CARRY SET IF TOO LOW 
RET 


INC HL (NOT USED) 

INC HL 
INC HL 

LD (23645), HL CHAR ADDR 
LD C, O 

DEC D D=# WANTED COUNTS 

RET Z FOUND DOWN TO ZERO 

RST 32 NEXT CHAR 

CP E THE TOKEN WANTED 

JR NZ, 4 (5890) SKIP SLUG? 

AND A CLEAR FLAGS 

RET 

INC HL 

LD A, (HL) 


NEXT CODE 



b890 CD,02,16 SKIP SLUG? 


5893 

22,5D 

5C 

5896 

FE, 22 


5898 

20 ,01 


5900 

OD 


5901 

FE, 3A 

TRY : 

5903 

23,04 


5905 

FE, CB 


5907 

20,04 


5909 

CB, 41 

QUOTE? 

5911 

28, DF 


5913 

FE, OD 

END? 

5915 

20, E3 


5917 

15 


5918 

37 


5919 

C9 


FIND 

NEXT ONE (LINE/VARIABLE 

5920 

E5 

RECORD LENGTH 

5921 

7E 


CTQ99 

FE, 40 


5924 

38, 17 


5926 

CB, 6F 

VARIABLE SEARCH 

5928 

28, 14 


5930 

87 

NUMERIC OR FOR 

5931 

FA,2F, 

17 

5934 

3F 


5935 

01,05, 

00 SIMPLE VAR 

5938 

30,02 


5940 

OE, 12 


5942 

17 

NAME LOOP 

5943 

OT 


5944 

7E 


5945 

30 , FB 


5947 

18,06 


5949 


LINE SEARCH 

5950 


GET LENGTH 

5951 

4E 


5952 

f -yr? 


5953 

46 


5954 

n-r 


5955 

09 

NEXT VAR/LINE 

5956 

D1 


LENGTH DIFFERENCE SUBROUTINE 

5957 

A7 

DIFFERENCE 

5958 

ED , 52 


5960 

44 


5961 

4D 


5962 

19 


5963 

EB 


5964 

C9 



CALL 5634 SKIP SLUG? 

LD (23645), HL CHAR ADDR 
CP 34 "? 

JR NZ, 1 (5901) TRY : 

DEC C 
CP 58 :? 

JR Z, 4 (5907) QUOTE? 

CP 203 THEN? 

JR NZ, 4 (5913) END"? 

BIT O, C 

JR Z, 223 (5880) LOOP 
CP 13 ENTER? 

JR NZ, 227 (5888) NEXT CODE 

DEC D 

SCF 

RET 

SUBROUTINE 
PUSH HL 
L-D A, (HL) 

CP 64 LINE SEARCH? 

JR C, 23 (5949) LINE SEARCH 
BIT 5, A STR$ OR ARRAY? 

JR Z, 20 (5950) GET LENGTH 
ADD A, A DOUBLE CODE 
JP N 5935 SIMPLE VAR 
CCF LONG NAME NUMERIC ONLY 
LD BC, 5 NEEDS 5 SPACES 
JR NC, 2 (5942) NAME LOOP 
LD C, 18 FOR NEEDS 18 SPACES 
RL A 

INC HL GET NEXT CHAR 
LD A, (HL) 

JR NC, 251 (5942) NAME LOOP 

JR 6 (5955) NEXT VAR/LINE 
INC HL SKIP LINE # BYTE 
INC HL 
LD C, (HL) 

INC HL 

LD B, (HL) BC = LENGTH 
INC HL 

ADD HL, BC HL AT NEXT V^R/LINE 
POP DE 


AND A CLEAR FLAGS 

SBC HL, DE 

LD B, H 

LD C, L 

ADD HL, DE 

EX DE, HL 

RET 


RECLAIM (DELETE) SUBROUTINE 

5965 CD,45,17 DEL-DE RECLAIM-1) CALL 5957 DIFFERENCE 
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5968 

C5 

5969 

78 

5970 

2 F 

5971 

47 

5972 

79 

5973 

2 F 

5974 

4F 

5975 

03 

5976 

C5 

5977 

CD,CA,12 

5980 

E3 

5981 

09 

5982 

4D 

5983 

44 

5934 

D 1 

5935 

El 

5986 

19 

5987 

D5 

5933 

ED, BO 

5990 

El 

5991 

C9 

EDIT 

LINE NLJfi 

5992 

2A,59,5C 

5995 

2 B 

5996 

22,5D,5C 

5999 

E7 

6000 

21,92,50 

6003 

22,65,5C 

6006 

CD,F9,30 

6009 

CD,60,31 

6012 

38,04 

6014 

21 ,FO,D 8 

6017 

09 

6018 

DA,ED,IB 

6021 

C3,54,13 

REPORT AND LU 

6024 

D5 

6025 

E5 

6026 

AF 

6027 

CB, 78 

6029 

20,20 

6031 

60 

6032 

69 

6033 

IE, FF 

6035 

18,08 

6037 

D5 

6038 

56 

6039 

OT 

6040 

5E 

6041 

E5 

6042 

EB 

6043 

IE, 20 

6045 

01,18,FC 


RECLAIM-2 


EDIT LINE tt 


OVER 65536 


SAVE DIFFERENCE 
2 s compliment 


(RESET POINTERS 


PUSH BC 
LD A, B 
CPL 

LD B, A 
LD A, C 
CPL 

LD C, A 
INC BC 
PUSH BC 

CALL 4810 REMS SZ 

EX (SP), HL 

ADD HL, BC 

LD C, L 

LD B, H 

POP DE 

POP HL 

ADD HL, DE 

PUSH DE 

LDIR 

POP HL 

RET 


LD HL, (23641) E LINE 
DEC HL 

LD (23645), HL CHAR ADDR 

RST 32 NEXT CHAR 

LD HL, 23698 AT MEM BOTTOM 

LD (23653), HL STK END 

CALL 12537 ININT (INT TO FP) 

CALL 12640 FP TO BC 

JR C, 4 (6018) OVER 65536 

LD HL, 55536 = -10000 

ADD HL, BC 

JP C, 7149 SYN ERR 

JP 4948 RESET STK 


NUMBER PRINTING SUBROUTINE 


PUT BC 


CARRY 


PUT LINE 


PRINT # 


PUSH DE 
PUSH HL 

XOR A CLEAR A 2 
BIT 7, B 
JR NZ, 32 (6063) 

LD H, B 

LD L, C 

LD E, 255 NO LEADING 

JR 8 , (6045) PRINT # 

PUSH DE 
LD D, (HL) 

INC HL 
LD E, (HL) 

PUSH HL 
EX DE, HL 

LD E, 32 LEADING SPACE 
LD BC, 64536 = - 1000 


PRINT 1 DIGET 


SPACES 


NEEDED 
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6048 CD,76,16 
6051 01,9C,FF—- 
6054 CD,76,16 
6057 0E,F6 
6059 CD,76,16 

6062 7D 

6063 CD,EA,11 PRINT SINGLE # 

6066 El 

6067 D1 

6068 C9 

AROS INITIALIZATION ROUTINE 

6069 C5 AROS (CART) 

6070 01,00,FF 
6073 CD,99,64 

6076 Cl 

6077 CD,BB,12 
6080 2A,BC,5C 
6083 11,04,00 

6086 19 

6087 7E 

6088 06,00 

6090 4F 

6091 CD,99,64 

6094 C9 

AROS GET A LINE SUBROUTINE 

6095 2A,BC,5C GET A LINE 

6098 23 

6099 23 

6100 5E 

6101 23 

6102 56 

6103 EB 

6104 7E GET AROS LINE-LOOP 

6105 B8 

6106 20,04 

6108 23 

6109 7E 

6110 2B 

6111 B9 

6112 DO NOT ADDR 

6113 23 

6114 23 

6115 5E 

6116 23 

6117 56 

6118 23 

6119 19 

6120 18,EE 

6122 E5 AROS LINE 

6123 2A,BC,5C 
6126 11,04,00 

6129 19 

6130 7E 


CALL 5750 OUT SPACE # 
LD BC, 65436 — — 100 
CALL 5750 OUT SPACE # 
LD C, 246 = - 10 

CALL 5750 OUT SPACE # 
LD A, L 

CALL 4586 PUT DIGET 
POP HL 
POP DE 
RET 


PUSH BC 

LD BC, 65280 B=255 = BANK # 

CALL 25753 BANK ENABLE 
POP BC 

CALL 4795 INSERT BC SPACES 

LD HL, (23740) SYS CONFIG 

LD DE, 4 

ADD HL, DE 

LD A, (HL) BANK # 

LD B, O 
LD C, A 

CALL 25753 BANK ENABLE 
RET 


L-D HL, (23740) SYS CONF 
INC HL 
INC HL 
LD E, (HL) 

INC HL 
LD D, (HL) 

EX DE, HL HL=LINE # 

LD A, (HL) 

CP B HIGH BYTE =? 

JR NZ, 4 (6112) NOT ADDR 
INC HL 
LD A, (HL) 

DEC HL 

CP C LOW BYTE =? 

RET NC FOUND 
INC HL 
INC HL 


LD E, (HL) 

GET 

LENGTH 

INC HL 



LD D, (HL) 



INC HL 

AT 

TOKEN 

ADD HL, DE 

AT 

NEXT LINE 


JR 238 (6104) GET AROS LINE-LOOP 
PUSH HL 

LD HL, (23740) SYS CONFIG 
LD DE, 4 

ADD HL, DE CURRENT AROS LINE 
LD A, (HL) GET BANK 



6131 

4F 



LD C, A SETUP BANK ENABLE 

6132 

06 ,00 


— - - 

LO B, 0 

6134 

CD,99,64 



CALL 25753 BANK ENABLE 

6137 

Cl 



POP BC 

6138 

CD,CF,17 



CALL 6095 GET A AROS LINE 

6141 

18, 19 



JR 25 (6168) AROS NEXT-1 

6143 

CD,89,28 

AROS 

NEXT 

CALL 10377 INTERPRET? 

6146 

C8 



RET Z 

6147 

2A,BC,5C 



LD HL, (23740) SYS CON TABLE ADDR 

6150 

1 1,04,00 



LD DE, 4 

6153 

19 



ADD HL, DE CURRENT AROS LINE 

6154 

7E 



LD A, (HL) LD COMMAND 

6155 

4F 



LD C, A SETUP BANK ENABLE 

6156 

06 ,00 



LD B, 0 

6158 

CD,99,64 



CALL 25753 BANK ENABLE 

6 16 1 

2A,55,5C 



LD HL, (23637) NEXT LINE ADDR 

6164 

FD,36,0A,00 



LD (IY+10), 0 NSF'PC 

6168 

7E 

AROS 

NEXT-1 

LD A, (HL) 

6169 

E6, CO 



AND 192 SAVE ONLY 2 HIGH BYTES 

6171 

28,07 



JR Z, 7 (6180) GET LINE ADDR 

6173 

01,00,FF 



LD BC, BANK #=255 

6176 

CD,99,64 



CALL 25753 BANK ENABLE 

6179 

C9 



RET 

6180 

56 GET 

LINE 

ADDR 

LD D, (HL) 

6181 

n ~r 



INC HL 

6182 

5E 



LD E, (HL) 

6183 

ED,53,45,5C 



LD (23621), DE PPC 

6187 




INC HL. 

6188 

56 



LD D, (HL) GET LINE LENGTH 

6139 

-?• 



INC HL 

6190 

56 



LD E, (HL) 

6191 




INC HL AT TOKEN 

6192 

E5 



PUSH HL 

6193 

19 



ADD HL, DE GET NEXT LINE ADDR 

6194 

22,55,5C 



LD (23637), HL NEXT LINE 

6197 

D5 



PUSH DE SAVE LINE LENGTH 

6198 

2A,4F,5C 



LD HL, (23651) CHANS 

6201 

2B 



DEC HL 

6202 

ED,5B,C4,5C 



LD DE, (23748) AROS POINTER 

6206 

A7 



AND A CLEAR FLAGS 

6207 

ED, 52 



SBC HL, DE 

6209 

1 1,DO,00 



LD DE, 208 

6212 

EB 



EX DE, HL 

6213 

A7 



AND A CLEAR FLAGS 

6214 

ED, 52 



SBC HL, DE 

6216 

30,24 



JR NC, 36 (6254) AROS NEXT-1 

6218 

7D 



LD A, L 

6219 

2F 



CF'L COMPLIMENT HL AND MOVE 

6220 

4F 



LD C, A TO BC 

6221 

7C 



LD A, H 

6223 

47 



LD B, A 

6224 

03 



INC BC 

6225 

03 



INC BC 

6226 

2A,C4,5C 



LD HL, (23748) AROS POINTER 

6229 

C5 



PUSH BC 
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6230 O1,00,FF 

6233 CD, 99,64 __ 

6236 Cl 

6237 CD,50,17 
6240 2A,BC,5C 
6243 11,04,00 

6246 19 

6247 7E 

6248 06,00 

6250 4F 

6251 CD,99,64 

6254 El ARCS NEXT-3 

6255 E5 

6256 11,CF,00 

6259 2B 

6260 A7 

6261 ED,52 
6263 38,0A 

6265 4D 

6266 44 

6267 03 

6268 2A,4F,5C 

6271 2B 

6272 CD,B5,17 

6275 Cl AROS NEXT -4 

6276 D 1 

6277 21,FF,00 

6280 E5 

6281 D5 

6282 2A,C4,5C 
6285 36,OD 
6287 22,5D,5C 

6290 23 

6291 E5 

6292 C5 

6293 01,00,00 

6296 C5' 

6297 CD,22,67 
6300 FD,7E,0A 
6303 FD,36,OA,FF 
6307 FE ,01 

6309 CE,00 

6311 3D 

6312 F5 

6313 32,47,5C 
6316 FD,36,00,FF 
6320 01,00,FF 
6323 CD,99,64 

6326 FI 

6327 CA,44,1A 

6330 3C 

6331 57 

6332 IE,00 
6334 CD,F3,16 
6337 CA,4A,IB 


LD BC, B=255 BANK # 

— CALL 25753 BANK ENABLE 
POP BC 

CALL 5968 DEL REC (RECLAIM- 2 ) 
LD HL, (23740) SYS CON 
LD DE, 4 

ADD HL, DE CURRENT AROS LINE 
LD A, (HL.) GET BANK # 

LD B, O 
LD C, A 

CAL 25753 BANK ENABLE 

POP HL 

PUSH HL 

LD DE, 207 

DEC HL 

AND A CLEAR FLAGS 
SBC HL, DE 

JR C, 10 (6275) AROS NEXT -4 
LD C, L 
LD B, H 
INC BC 

LD HL, (23631) PPC 
DEC HL 

CALL 6069 AROS 
POP BC 
POP DE 
LD HL, 255 
PUSH HL 
PUSH DE 

LD HL, (23748) AROS POINTER 
LD (HL), 13 ENTER 

LD (23645), HL CHAR ADDR 
INC HL 

PUSH HL SETUP XFER BYTES 
PUSH BC 
LD BC, 1 
PUSH BC 

CALL 26402 XFER BYTES 
LD A, (IY+10) NS PPC 
LD (IY+10), 255 
CP 1 1ST STATEMENT? 

ADC A, 0 ADD 1 IF 0 
DEC A THEN SUBRTRACT 1 ’ 

PUSH AF SAVE NS PPC 
LD (23623), A SUB PPC 
LD (IY+O), 255 ERR # 

LD BC, B=255 BANK # 

CALL 25753 BANK ENABLE 
POP AF 

JP Z, 6724 STATEMENT LOOP 
INC A INCREASE STATEMENT # 

LD D, A SETUP FIND SUBLINE 
LD E, 0 

CALL 5875 FIND SUB LINE 1 
JP Z, 6986 END TEM 
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6340 CF ERR N 

6341 16 

AROS ENTRY POINT 

6343 21,C6,5C AROS 


6345 

36, 80 

6347 

01 ,DO,00 

6350 

21,40,63 

6353 

2 B 

6354 

CD,BB,12 

6357 

21,40,68 

6360 

22,C4,5C 

6363 

2A,BC,5C 

6366 

11,06,00 

6369 

19 

6370 

4E 

6371 


6372 

46 

6373 

21,40,68 

6376 

2B 

6377 

CD,BB,12 

6380 

2A,BC,5C 

6383 

11,04,00 

6386 

19 

6387 

7E 

6388 

06,00 

6390 

4F 

6391 

CD,99,64 

6294 

2A,BC,5C 

6397 

n-r 
xl •_’« 

6398 


6399 

5E 

6400 


6401 

56 

6402 

EB 

6403 

56 

6405 

5E 

6406 

01,00,FF 

6409 

CD,99,64 

6412 

2A,BC,5C 

6415 

01,05,00 

6418 

09 

6419 

7E 

6420 

FE, 00 

6422 

28,29 

6424 

ED,53,42. 

6428 

CD,A6,08 

6431 

2A,BC,5C 

6434 


6435 

n-r 
xl -_I* 

6436 

5E 

6437 

2 y, 

6438 

56 

6439 

EB 

6440 

2B 


RST S ERROR 
N—STATEMENT LOST 


LD HL, 23750 AT AROS FLAGS 
LD (HL) , 128 SET CART PRESENT 

LD B-C, 208 

LD HL 26688 AT CHAN TABLE 
DEC HL 

CALL 4795 INSERT BC SPACES 
LD HL, 26683 SET AROS POINTER 
LD (23748), HL AROS POINTER 
LD HL, (23740) SYS CON 
LD BC, 6 
ADD HL, DE 
LD C, (HL.) 

INC HL 
LD B, (HL) 

LD HL, 26688 CHAN TABLE 
DEC HL 

CALL 4795 INSET BC SPACES 
LD HL, (23740) AROS POINTER 
LD DE, 4 
ADD HL, DE 
LD A, (HL) 

LD B, O 
LD C, A 

CALL 25753 BANK ENABLE 
LD HL, (23740) SYS CON 
INC HL 
INC HL 
LD E, (HL) 

INC HL 
LD D, (HL) 

EX DE, HL 
INC HL 
LD E, (HL) 

LD BC, B=255 BANK # 

CALL 25753 BANK ENABLE 
LD HL, (23740) SYS CON 
LD BC, 5 
ADD HL, BC 
LD A, (HL) 

CP 0 

JR Z, 41 AROS END 

LD (23618), DE NEW PPC 

CALL 2214 K CLS 

LD HL, (23740) SYS CON 

INC HL 

INC HL 

LD E, (HL) 

INC HL 
LD D, (HL) 

EX DE, HL 
DEC HL 
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6441 

22,57,5C 

6444 

FD,36,00,FF 

6448 

FD,CB,01,FE 

6452 

FD,36,OA,00 

6456 

21,8D,0E 

6459 

E5 

6460 

21,B9,1A 

6463 

FB 

6464 

E9 

6465 

FB 

6466 

C2,2F,OE 

BA! 

SYNTAX OFFSET TA] 

6469 

B5 

6470 

DO 

6471 

CO 

6472 

C4 

6473 

cs 

6474 

B3 

6475 

BS 

6476 

97 

6477 

95 

6478 

96 

6479 

99 

6480 

9C 

6481 

9C 

6482 

9C 

64S3 

9C 

64S4 

9C 

6485 

9C 

6486 

9C 

6487 

S3 

6488 

85 

6489 

T 

6490 

70 

6491 

72 

6492 

74 

6493 

4C 

6494 

98 

6495 

5 A 

6496 

43 

6497 

45 

6498 

2F 

6499 

IB 

6500 


6501 

ZB 

6502 

7B 

6503 

48 

6504 

13 

6505 

5D 

6506 

2F 

6507 

47 

6508 

31 

6509 

55 


LD (23639), HL DATA ADDR 
LD (IY+OK f —255 RSESET ERR # 
SET 7, (IY+1) REG INTERPRET 

LD (IY+10), O NS PPG 
LD HL, 3725 LED 4 (MAIN-4) 
PUSH HL 

LD HL, 6841 END STATEMENT 
El 

JP (HL.) 

AROS END El 

JP 3631 MIN EXECUTION-1 

LINE AND COMMAND INTERPRETATION 


DEF FN 

6650 

CAT 

6678 

FORMAT 

6663 

MOVE 

6668 

ERASE 

6673 

OPEN # 

6653 

CLOSE # 

6659 

MERGE 

6627 

VERIFY 

6625 

BEEP 

6628 

CIRCLE 

6632 

INK 

6636 

PAPER- 

6637 

FLASH 

6638 

BRIGHT 

6639 

INVERSE 

6640 

OVER 

6641 

OUT 

6642 

LPRINT 

6618 

LLIST 

6621 

STOP 

6539 

READ 

6602 

DATA 

6605 

RESTORE 

6608 

NEW 

6569 

BORDER 

6646 

CONTINUE 

65S5 

DIM 

6563 

REM 

6566 

FOR¬ 

6545 

GO TO 

6526 

GOSUB 

6535 

INPUT 

6560 

LOAD 

6525 

LIST 

6575 

LET 

6523 

PAUSE 

6598 

NEXT 

6553 

POKE 

6578 

PRINT 

6557 

PLOT 

6594 
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6510 

3E 

RUN 

6572 

651 1 

71 

SAVE 

6624 

6512 

46 

RANDOMIZE 

65S2 

6513 

1 1 

IF 

6530 

6514 

4D 

CLS 

6591 

6515 

60 

DRAW 

6611 

6516 

48 

CLEAR 

6588 

6517 

19 

RETURN 

6542 

6518 

61 

COPY 

6615 

6519 

A4 

ON ERR 

6683 

6520 

A6 

STICK 

6686 

6521 

A 8 

RESET 

6689 

/ CT '“» ■'"T 

A A 

SOUND 

6692 

PARAMATER TABLE 



6523 

01,3D,02 

P-LET 

CLASS 1,"=", CLASS 

6526 

06 ,00 

P-GO TO 

CLASS 6, CLASS 0 


FI, IE 


JUMP 7921 

6530 

06 5 CB,05 

P—IF 

CLASS 6, THEN,CLASS 


5B , 1 C 


IF 7259 

6535 

06,00 

P-GOSUB 

CLASS 6, CLASS 0 


99, IF 


GOSUB 8089 

6539 

00 

P-STOP 

CLASS 0 


59, 1C 


STOP 7257 

6542 

00 

P-RETURN 

CLASS 0 


D4, IF 


RETURN 8148 

6545 

04,3D , 06,CC,06,05 

P-FOR 

CLASS 4,"=", CLASS 


78, 1C 


TO, CLASS 6, CLASS 




FOR 7288 

6553 

04 ,00 

P-NEXT 

CLASS 4, CLASS 0 


55, ID 


NEXT 7509 

6557 

05 

P-PRINT 

CLASS 5 


59,21 


PRINT 8537 

6560 

05 

P-INPUT 

CLASS 5 


9g oo 


INPUT 8738 

6563 

05 

P-DIM 

CLASS 5 


CO, 2F 


DIM 12224 

6566 

05 

P-REM 

CLASS 5 


00, IB 


REM 6912 

6569 

OD 

P-NEW 

CLASS 13 


ID, OD 


NEW 3357 

6572 

03 

P-RUN 

CLASS 3 


2B, IF 


RUN 7979 

6575 

05 

P—LIST 

CLASS 5 


45, 15 


LIST 5445 

6578 

08, OD 

P-POKE 

CLASS 8, CLASS 13 


OA, IF 


POKE 7951 

6532 

03 

P-RANDOMIZE CLASS 3 


D4, IE 


RANDOMIZE 7892 

6585 

00 

P-CONTINUE 

CLASS 0 


E4, IE 


CONTINUE 7908 

6588 

03 

P-CLEAR 

CLASS 3 


36, IF 


CLEAR 7990 

6591 

00 

P—CLS 

CLASS 0 


A6, 08 


CLS 2214 



6594 

09,00 


35, 26 

6598 

06,00 
EB, IF 

6602 

05 

97, ID 

6605 

05 

82, IE 

6608 

03 

9D, IE 

661 1 

09,05 
DB, 26 

6615 

00 

02, OA 

6618 

05 

5,21 

6621 

05 

41,15 

6624 

OB 

6625 

OB 

6626 

OB 

6627 

□B 

6628 

08,00 
36, 04 

6632 

09,05 
79,26 

6636 

07 

6637 

07 

6638 

07 

6639 

07 

6640 

07 

6641 

07 

6642 

08,00 
04, IF 

6646 

06,00 
3E, 24 

6650 

05 

ID, 20 

6653 

06,2C, 
2A, 14 

6659 

06,00 
9F, 13 

6663 

OA,2C, 
CC, 25 

6668 

OA,2C, 
DO, 25 

6673 

0A,2C, 


D4,25 

6678 0A,2C,05 
C8, 25 
6683 05 

D1,20 
6686 05 
80, 20 


P-PLOT 

P-PAUSE 

P-READ 

P-DATA 

P-RESTQRE 

P-DRAW 

P-COPY 

P-LPRINT 

P-LLIST 

TEM 38 P-SAVE 
TEM 39 P-LOAD 

P-VERIFY 

P-MERGE 

P-BEEP 

P-CIRCLE 

P-INK 

P-PAPER 

P-FLASH 

P-BRIGHT 

F-INVERSE 

P-OVER 

F—OUT 

F-BORDER 

P-DEF FN 

F'-OPEN # 

P-CLOSE # 

F'-FORMAT 

P-MOVE 

P-ERASE 

P-CAT 

P-ON ERR 

P-STICK 


CLASS 9, CLASS O 

PLOT 9781. - . 

CLASS 6, CLASS 0 
PAUSE 8171 
CLASS 5 
READ 7575 
CLASS 5 
DATA 7810 
CLASS 3 
RESTORE 7837 
CLASS 9, CLASS 5 
DRAW 9947 
CLASS O 

COPY = K-DUMP 2562 
CLASS 5 
LF'RINT 8533 
CLASS 5 
LUST 5441 
CLASS 11 
CLASS 11 
CLASS 11 
CLASS 11 

CLASS 8, CLASS 0 
BEEP 1078 
CLASS 9, CLASS 0 
CIRCLE 9849 
CLASS 7 
CLASS 7 
CLASS 7 
CLASS 7 
CLASS 7 
CLASS 7 

CLASS 8, CLASS 0 

OUT 7940 

CLASS 6, CLASS 0 

BORDER 9278 

CLASS 5 

DEF FN 8221 

CLASS 6,", ", CLASS 10 

CLASS 5 

OPEN # 5162 ■ 

CLASS 6, CLASS 0 

CLOSE # 5023 

CLASS 10,",", CLASS 

FORMAT 9676 

CLASS 10,",", CLASS 

MOVE 9680 

CLASS 10,",", CLASS 

ERASE 9684 

CLASS 10 ,",", CLASS 

CAT 9672 

CLASS 5 

ON ERR 8320 

CLASS 5 

STICK 8401 
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6689 05 

54,24 
6692 05 

28,21 


P-RESET 

P-SOUND 


CLASS 5 
RESET 9300 
CLASS 5 
SOUND 8488 


REQUIREMENTS 
CLASS 0 


CLASS 

CLASS 

CLASS 

CLASS 

CLASS 

CLASS 

CLASS 

CLASS- 

CLASS 

CLASS 


1 


4 


7 

8 

9 

10 
1 1 


OF CLASSES 

NO FURTHER OPERANDS 
VARIABLE REQUIRED 
EXPRESSION REQUIRED, NUMERIC 
NUMERIC MAY FOLLOW, USE O 
SINGLE CHAR VARIABLE MUST 
SET OF ITEMS MAY BE GIVEN 
NUMERIC MUST FOLLOW 
COLOR ITEMS (ON/OFF ONLY) 

2 NUMERIC ITEMS SEPARATED 
AS CLASS 8 BUT COLOR ITEMS 
STRING NECESSARY 
CASSETTE ROUTINES 


OR STRING 
IF NOT 
FOLLOW 


BY COMMA MUST FOLLOW 
1AY PRECEDE 


PARSER OF BASIC INTERPRETER 


MAIN 

6695 FD,CB,01,BE SYNTAX LINE 
6699 CD,68,17 

6702 78 

6703 B1 

6704 28,08 
6706 3A,C6,5C 
6709 CB,7F 
6711 C2,ED,IB 
6714 AF 


CART CHECK 


SKIP CART CK 


RESET 7, (IY+1) INTERPRET OFF 

CALL 5992 EDIT LINE tt 
LD A, B 
OR C BC= O? 

JR Z, 8 (6714) SKIP CART CHECK 
LD A, (23750) CART FLAGS 
BIT 7, A CARTRIDGE PRESENT? 

JP NZ, 7149 SYN ERR 
XOR A CLEAR A S< CARRY 


6715 

32,47,5C 


LD (23623), A SUB PPC = 0 

6718 

3D 


DEC A 

6719 

32,47,5C 


LD (23610), A RESET ERR # 

6722 

18,01 


JR 1 (6725) STATMENT LOOP-1 

STATEMENT LOOP 



6724 

E7 STATEMENT 

LOOP 

RST 32 NEXT CHAR 

6725 

CD,4E,13 STATEMENT 

LOOP-1 

CALL 4924 SET WORK 

6728 

FD,34,CD 


INC (IY+13) SUB PPC 

6731 

FD,ED,IB 


JP N, 7149 SYN ERR 

6734 

DF 


RST 24 GET CHAR 

6735 

06,00 


LD B, 0 

6737 

FE, OD 


CP 13 ENTER? 

6739 

CA,09,1B 


JP Z, 6921 LINE END 

6742 

FE, 3A 


CP 58 :? 

6744 

28, EA 


JR Z, 234 (6724) STATEMENT LOOP 

6746 

21,69,18 


LD HL, 6841 END STATEMENT 

6749 

E5 


PUSH HL A RETURN 

6750 

4F 


LD C, A SAVE CHAR TO C 

6751 

E7 


RST 32 GET CHAR 

6752 

79 


LD A, C 

6753 

FE, OC 


CP 12 DELETE? 

6755 

28, 1A 


JR Z, 26 (6783) CHAR 12+123-127 

6757 

FE , 7B 


CP 123 ON ERR? 

6759 

38,08 


JR C, 8 (6769) GET TOKEN OFFSET 

6761 

FE, 80 


CP 128 GRAPHIC? 





(a. 


6763 30,04 
6765 CB,47 
6767 20,0E 

6769 D 6 ,CE GET TOKEN OFFSET 
6771 DA,ED,IB 

6774 47 

6775 21,45,19 

6778 09 FIND OFFSET ADDR 

6779 4E 

6780 09 

6781 18,19 

6783 FE,OC CHAR 12+123-127 
6785 20,04 
6787 3E ,00 
67S9 18,08 
6791 D 6 ,7A 
6793 FE,05 
6795 20,02 
6797 
6799 
6302 
6803 
6805 
6808 

6809 

6810 22,74,5C 
6813 01,95,1A 

6816 C5 

6817 4F 

6818 FE,20 
6820 30,OC 
6822 21,64,IB 
6825 06,00 

6827 09 

6828 4E 

6829 09 

6830 E5 

6831 DF 

6832 05 

6833 C9 

SEPARATOR SUBROUTINE 

6834 DF 

6835 B9 

6836 C2,ED,18 

6839 E7 

6840 C9 

STATEMENT RETURN SUBROUTINE 

6841 CD,09,20 END STATEMENT 
6844 38,02 

6846 CF ERR L 

6847 14 

6848 FD,CB,OA,7E SKIP ERR 

6852 C2,4A,IB 


JR NC, 4 (6769) GET TOKEN OFFSET 
BIT 0, A CHAR >= 128? 

JR NZ, 14 (6783) CHAR 12+13-127 
SUB 206 

JP C, 7149 SYN ERR (NOT TOKEN) 

LD C, A GET CHAR 
LD HL, 6469 SYN OFFSET TABLE 
ADD HL, BC 
LD C, (HL) 

ADD HL, BC 

JR 25 (6805) UPDATE T(SCAN LOOP) 
CP 12 DELETE? 

JR NZ, 4 (6791) CHAR 123-127 
LD A, O 

JR 8 (6799) 2ND OFFSET 
SUB 122 

CP 5 RESET? 

JR NZ, 2 (6799) 2ND OFFSET 
LD A, 2 

LD HL, 6519 2ND OFFSET TABLE 
LD C, A 


LD (23668), HL T ADDR 
LD BC, 6805 UPDATE T 
PUSH BC A RETURN 
LD C, A 
CP 32 SPACE? 

JR NC, 12 (6834) SEPARATOR 
LD HL, 7012 TEM 1 CLASS TABLE 
LD B, O 
ADD HL, BC 
LD C, (HL) 

ADD HL, BC 

PUSH HL SAVE ADDR 

RST 24 GET CHAR 

DEC B 

RET 


RST 24 GET CHAR 

CP C CHAR FROM PARAMETER TABLE 
JP NZ, 7149 SYN ERR 
RST 32 NEXT CHAR 
RET 


CALL 8201 BREAK? 

JR C, 2 (6848) SKIP ERR 
RST 8 ERROR 
L BREAK in program 
BIT 7, (IY+10) JUMP? 

JP NZ, 6986 END TEM 


3E, 02 

21,77,19 2ND OFFSET 

4F 

1S ’ E5 JR 229 (6778) FIND OFFSET ADDR 

2A,74,5C UPDATE T(SCAN LOOP) LD HL, (23668) T ADDR 
2L GET PARAM LD A, (HL) 

INC HL 
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6855 2A, 42,5C LD HL, (23618) NEW PPC 

6858 CB,7C BIT 7, H ANOTHER EDIT STATEMENT? 

6860 20,OA JRNZ, 10 (6872) EXECUTE 

6862 3A,C6,5C LD A, (23750) CART FLAGS 

6865 CB.7C BIT 7, A CART PRESENT? 

6867 C2,EA,17 JP NZ, 6122 AROS LINE 

6870 18,14 JR 20 (6882) LINE NEW 

LINE RUN ENTRY POINT 

6872 21,FE,FF EXECUTE (LINE RUN) LD HL. 65534 = -2 


6875 22,45,5C 
6878 2A,61,5C 

6881 2B 

LINE NEW SUBROUTINE 

6882 ED,CB,59,5C LINE NEW 

6886 IB 

6887 3A,44,5C 
6890 18,3B 
6892 CD,D6,16 
6895 3A,44,5C 
6898 28,21 

6900 A7 

6901 20,4B 

6903 47 

6904 7E 

6905 E6,CO 

6907 78 

6908 28,17 

6910 CF ERR O 

6911 FF 

REM COMMAND ROUTINE 

6912 Cl REM 

6913 3A,C6,5C 
6916 CB,7F 
6918 C2,FF,17 

LINE END ROUTINE 
6921 CD,89,28 LINE END 

6924 C8 

6925 2A,55,5C 
6928 3E,CO 

6930 A6 

6931 CO 

6932 AF 

LINE USE ROUTINE 

6933 FE,01 LINE USE 

6935 CE,00 

6937 56’ 

6938 23 

6939 5E 

6940 ED,53,45,5C 
6944 23 


LD (23621), HL PPC = -2 
LD HL, (23649) WORK SPACE 
DEC HL 


LD DE, (23641) E LINE ADDR 
DEC DE 

LD A, (23620) NS PPC 

JR 59 (6951) NEXT LINE 

CALL 5846 FIND LINE ADDR 

LD A, (23620) NS PPC 

JR Z, 33 (6933) LINE USE 

AND A CLEAR FLAGS 

JR NZ, 45 (6948) SET NEXT LINE 

LD B, A CHECK PROG END 

LD A, (HL) 

AND 192 SAVE BITS 6 7 

LD A, B 

JR Z, 23 (6933) LINE USE 
RST 8 ERROR 
0 OK 


POP BC DROP STATEMENT RET 
LD A, (23750) CART FLAGS 
BIT 7, A CART PRESENT? 

JP NZ, 6143 AROS NEXT 


CALL 10377 INTERPRET? 

RET Z 

LD HL, (23637) NEXT LINE. 
LD A, 192 SET BITS 6 S< 7 
AND (HL) 

RET NZ 

XOR A CLEAR A CARRY 


CP 1 

ADC A, 0 

LD D, (HL) LINE # TO DE 
INC HL 
LD E, (HL) 

LD (23621), DE PPC 
INC HL 
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SET NEXT LINE 


LD E, (HL) 
INC HL 
LD D, (HL) 
ADDR EX DE, HL 
ADD HL, DE 
INC HL 


LINE LEN TO DE 


6945 5E 

6946 J23 

6947 56 
694S EB 

6949 19 

6950 23 

NEXT LINE ROUTINE 


6951 

22,55,5C 

NEXT 

LINE 


6954 

EB 




6955 

22,5D,5C 




6958 

57 




6959 

1E , 00 




6961 

FD,36,OA, 

FF 



6965 

15 




6966 

FD,72,OD 




6969 

CA,44,1A 




6972 

14 




6973 

CD,F3,16 




6976 

28,08 




6978 

CF 

ERR M 


6979 

16 




CHECK END ROUTINE 



6980 

CD,89,28 


END ? 


6983 

CO 




6984 

Cl 




6985 

Cl 




NEXT 

STATEMENT 

ROUTINE 



6986 

DF 

END TEM 


6987 

FE, OD 




6989 

20 , OD 




6991 

2A,55,5C 




6994 

3A,C6,5C 




6997 

CB,7F 




6999 

C2,FF,17 




7002 

18, AD 




7004 

FE, 3 A 

SUB 

LINE? 


7006 

CA,44,1A 




7009 

C3,ED,IB 




COMMAND CLASS TABLE 



7012 

OF 

TEM 1 

CLASS 

0 

7013 

ID 


CLASS 

1 

7014 

4B 


CLASS 

o 

7015 

D9 


CLASS 

3 

7016 

67 


CLASS 

4 

7017 

OB 


CLASS 

5 

7018 

7B 


CLASS 

6 

7019 

8E 


CLASS 

7 

7020 

71 


CLASS 

a 

7021 

BC 


CLASS 

9 

7022 

81 


CLASS 

10 

7023 

D7 


CLASS 

li 


LD 

(23645) 

, HL NEXT 

LINE 

EX 

DE, HL 



LD 

(23645) 

, HL CHAR 

ADDR 

LD 

D, A 



LD 

E, 0 



LD 

(IY+10) 

, 255 NS 

PPC 

DEC 

D 



LD 

(IY+13) 

, D SUB PPC 

JP 

Z, 6724 

STATEMENT LOOP 

INC 

D 



CALL 5875 

SUB LINE 

1 


JR 2, 8 (6986) END TEM 
RST 8 ERROR 
M RAMTOP no good 


CALL 10377 INTERPRET? 

RET Z 

POP BC DISCARD SCAN LOOP 
POP BC DISCARD STATEMENT RET 


RST 24 GET CHAR 
CP 13 ENTER? 

JR NZ, 13 (7004) SUB LINE? 
LD HL, (23637) NEXT LINE 
LD A, (23750) CART FLAGS 
BIT 7, A CART PRESENT? 

JP NZ, 6143 AROS NEXT 
JR 173 (6921) LINE END 
CP 58 :? 

JP Z, 6724 STATEMENT LOOP 
JP 7149 SYN ERR 


7027 

7042 


SEE COMMENTS 

7089 


FOLLOWING 6694 

723^ 


GIVING THE RE¬ 

7119 


REQUIREMENTS OF 

7028 


EACH CLASS 

7141 

OPT # 


7161 

7133 

7209 

7151 

TEM 10 


7238 
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COMMAND CLASSES O, 3 5 


7024 

CD,49,1C 

CLASS 3 

7027 

BF 

CLASS 0 

7023 

Cl 

CLASS 5 

7029 

CC,44,IB 


7032 

EB 


JUMP 

ENTER (C R) 

ROUTINE 

7033 

2A,74,5C 

JUMP ENTER 

7036 

4E 


7037 

23 


7038 

46 


7039 

EB 


7040 

C5 

CLASS END 

7041 

C9 



COMMAND CLASSES 1, 2 ?< 4 
7042 CD,70,2C CLASS 1 


CALL 7241 CLASS 6 
CP A SET ZERO FLAG 
POP BC 

CALL Z, 6980 END? 
EX DE, HL 


LD HL, (23668) T ADDR 
LD C, (HL) 

INC HL 
LD B, (HL) 

EX DE, HL 
PUSH BC 
RET 


CALL 11276 FIND N (LOOK FOR VAR) 


VARIABLE IN ASSIGNMENT SUBROUTINF 


7045 

FD,36,37,00 CLASS 

4-2 

7049 

30,08 


7051 

FD,CB,37,CE 


7055 

20, IS 


7057 

CF ERR 


7058 

01 


7059 

CC,54,2D SET STK 

7062 

FD,CB,01,76 


7066 

20, OD 


7068 

AF 


7069 

CD,89,28 


7072 

C4,AF,2F 


7075 

21,71,5C 


7078 

B6 


7079 

77 


7080 

EB 


7081 

ED,43,72,5C SET STR 

LEN 

7085 

22,4D,5C 


7088 

C9 


7089 

Cl CLASS 


7090 

CD,B9,IB 


7093 

CD,44,IB 


7096 

C9 



LD (IY+55), 0 RESET FLAG X 

JR NC, 8 (7059) SET STACK 

SET 1, (IY+55) VAR NOT FOUND ON 

JR NZ, 24 (7081) SET STRING LEN 

RST 8 ERROR 

2 VARIABLE NOT FOUND 

CALL Z, 11604 STK VAR 

BIT 6, (IY+l) STRING? 

JR NZ, 13 (7081) SET STRING LEN 
XOR A CLEAR A CARRY 
CALL 10377 INTERPRET? 

CALL NZ, 12207 SET PARAMETERS 
LD HL, 23665 AT FLAG X 
OR (HL) 

LD (HL), A A TO'FLAG X 
EX DE, HL 

LD (23666), BC STR LEN 
LD (23629), HL DEST 
RET 

POP BC DROP SCAN LOOP 
CALL 7097 FETCH A VALUE 
CALL 6980 END? 

RET 


FETCH A VALUE SUBROUTINE 
7097 3A,3B,5C FETCH A VALUE 

7100 F5 LT22 

7101 CD,54,28 

7104 FI 

7105 FD,56,01 

7108 AA 

7109 E6,40 
7111 20,24 
7113 CB,7A 


LD A, (23611) FLAGS 
PUSH AF 

CALL 10324 EXPRESSION 
POP AF OLD FLAGS 

LD D, (IY+l) FLAGS 
XOR D COMPARE FLAGS 
AND 64 CHECK KEYHIT 
JR NZ, 26 (7149) ERR C 
BIT 7, D SYNTAX CHECK? 
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7115 C2,BD,2E 

7118 C9 

COMMAND CLASS 4 ROUTINE 

7119 CD,70,2C CLASS 4 

7122 F5 

7123 79 

7124 F6,9F 

7126 3C 

7127 20,14 

7129 FI 

7130 18,A9 


JP NZ, 11965 LET 
RET 

CALL 11376 FIND A VAR 
PUSH AF 
LD A, C 

OR 159 NEXT VAR? 

INC A 

JR NZ, 20 (7149) ERR C 
POP AF 

JR 169 (7045) CLASS 4-2 


EXPECT NUMERIC/STRING EXPRESS 

7132 E7 DYADIC EXPECT EXPRESS 

7133 CD,E5,IB CLASS 8 

7136 FE,2C 

7138 20,09 

7140 E7 

7141 CD,54,28 TEM 6 (EXPECT # 

7144 FD,CB,01,76 

7145 CO 

7149 CF SYN ERR 

7150 OB 

7151 CD,54,28 CLASS 10 

7154 FD,CB,01,76 

7158 C8 

7159 18,F4 


IONS SUBROUTINE 
ION RST 32 NEXT CHAR 
CALL 7141 TEM 6 
CP 44 ","? 

JR NZ, 9 (7149) ERR C 
RST 32 NEXT CHAR 
) CALL 10324 EXPRESSION 
BIT 6, (IY+1) STRING? 

RET NZ 
RST 8 ERROR 
C Nonsense in BASIC 
CALL 10324 EXPRESSION 
BIT 6, (IY+1) NUMBER? 

RET Z 

JR 244 (7149) ERR C 


SET P 
7161 
7165 
7169 

7172 

7173 
7176 
7179 

7182 

7183 

7185 

7186 
7189 


ERMANENT 
FD,CB,01, 


FD 
C4 
FI 
3 A 
2A 
11 
A7 
ED 
7D 
CD 
CD 


COLORS 

7E 


SUBROUTINE 
CLASS 7 


CB,02,86 
88,08 

74, 5C 
74,5C 
14, 19 


A6, 23 
44, IB 


NEED INTERPRET? 
UPPER SCREEN 
R ATTR 


BI7 7, (IY+1) 

RES 0, (IY+2) 

CALL NZ, 2184 
POP AF 

LD A, (23668) T ADDR 
LD HL, (23668) 

LD DE, 6420 

AND A CLEAR FLAGS 

SBC HL, DE 

LD A, L 

CALL 9126 CHANGE TO CONTROL 
CALL 6980 END? 


7192 

2A,BF,5C 

7195 

22,8D,5C 

7198 

21,91,5C 

7201 

7E 

7202 

07 

7203 

AE 

7204 

E6, AA 

7206 

AE 

7207 

77 

7208 

C9 


LD HL, (23693) ATTR T/MASK T 
LD (23693), HL ATTR P/MASK P 
LD HL, 23697 AT P FLAG 
LD A, (HL) 

RLC A X2 

XOR (HL) P FLAG 

AND 170 SAVE ONLY EVEN BITS 

XOR (HL) 

LD (HL), A RETURN P FLAG 
RET 


COMMAND CLASS 9 ROUTINE (PLOT, DRAW & CIRCLE) 

7209 CD,89,28 CLASS 9 CALL 10377 INTERPRET? 

7212 28,13 JR Z , 19 (7233) SKIP SETUP 
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7214 FD,CB,02,86 
7218 CD,88,08 
7221 21,90,5C 

7224 7E 

7225 F6,F8 

7227 77 

7228 FD,CB,56,B6 

7232 DF CLASS 3 

7233 CD,SC,23 SKIP SETUP 
7236 18,97 


RES 0, (IY+2) UPPER SCREEN 

CALL 2184 R ATTR 
LD HL, 23696 AT MASK T 
LD A, (HL) 

OR 248 SET 5 HIGH BITS 
LD (HL), A 

RES 6, (IY+87) T PAPER 

RST 24 GET CHAR 
CALL 9100 GR COL 

JR 151 (7133) CLASS 8 (EXPECT 2#) 


COMMAND CLASS 12 ROUTINE (CASSETTE ROUTINES) 

■' 2O'3 C3,D2,24 CLASS 11 JP 9426 NEW DEV 


FETCH A NUMBER SUBROUTINE 
7241 FE,OD CLASS 6 (OPT #) 
7243 28,04 
7245 FE,3A 
7247 20,94 

7249 CD,89,28 USE O 

7252 CS 

7253 EF 

7254 AO 

7255 38 

7256 C9 

STOP COMMAND ROUTINE 

7257 CF STOP 

7258 08 

IF COMMAND ROUTINE 

7259 Cl IF 

7260 CD,89,28 
7263 28,14' 

7265 EF 

7266 02 

7267 38 

7268 EB 

7269 CD,04,39 
7272 30,OB 
7274 3A,C6,5C 
7277 CB,7F 
7279 C2,FF,17 
7282 C3,09,IB 

7285 C3,45,1A GOTO STATEM LOOP 

FOR COMMAND ROUTINE 

7288 FE,CD FOR 

7290 20,09 

7292 E7 

7293 CD,E5,IB 
7296 CD,44,IB 
7299 18,06' 

7301 CD,44,IB USE 1 

7304 EF 


CP 13 ENTER? 

JR Z, 4 (7249) USE 0 
CP 58 :? 

JR NZ, 148 (7141) TEM 6 EXPECT #) 
CALL 10377 INTERPRET? 

RET Z 

RST 40 FP CALC 
STK 0 
END FP 
RET 


RST 8 ERROR 
9 STOP statement 


POP BC 

CALL 10377 INTERPRET? 

JR Z, 20 (7235) GOTO STATEM LOOP 

RST 40 FP CALC 

DELETE 

END FP 

EX DE, HL 

CALL 14596 TEST 0 

JR NC, 11 (7285) GOTO STATEM LOOP 

LD A, (23750) CART FLAGS 
BIT 7, A CART PRESENT? 

JP NZ, 6143 AROS NEXT 
JP 6921 LINE END 
JP 6725 STATEMENT LOOP-1 


CP 205 STEP? 

JR NZ, 9 (7301) USE 1 
RST 32 NEXT CHAR 
CALL 7141 TEM 6 
CALL 6980 END? 

JR 6 (7307) REORDER 
CALL 6980 END? 

RST 40 FP CALC 
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7305 A1 

7306 38 

7307 EF 

7308 CO 

7309 02 

7310 01 

7311 EO 

7312 01 

7313 38 

7314 CD,BD,2E 
7317 22,68,5C 

7320 2B 

7321 7E 

7322 CB,FE 
7324 01,06,00 

7327 09 

7328 07 

7329 38,06 
7331 0E,0D 
7333 CD,BB,12 

7TT6 0"T 

7337 E5 

7338 EF 

7339 02 

7340 02 

7341 38 

7342 El 

7343 EB 

7344 OE,0A 
7346 ED,BO 
7348 2A,45,5C 

7351 EB 

7352 73 

7353 23 

7354 72 

7355 FD,56,OD 

7358 14 

7359 23 

7360 72 

7361 CD,84,ID 

7364 DO 

7365 2A,45,5C 
7368 22,42,5C 
7371 3A,47,5C 
7374 ED,44 

7376 57 

7377 2A,BC,5C 

7380 23 

7381 7E 

7382 FE,02 
7384 20,18 

7386 23 

7387 23 

7388 23 

7389 7E 


STK 1 
END FP 

REORDER RST 40 FP CALC 

STK TO MEM 0 
DELETE 
EXCHANGE 
GET MEM O 
EXCHANGE 
END FP 

CALL 11965 LET 

LD (23656), HL MEM 

DEC HL SINGLE CHAR VAR NAME 

LD A, (HL) 

SET 7, (HL) TURN INTO "FOR" VAR 
LD BC, 6 NEEDS 6 EXTRA SPACFS 
ADD HL, BC 
RLC A 

JR C, 6 (7337) LIMIT ?< STEP 
LD C, 13 NEW "FOR" NEEDS 13 SPC 
CALL 4795 INSERT BC SPACES 
INC HL 

LIMIT & STEP PUSH HL 

RST 40 FP CALC 

DELETE 

DELETE 

END FP 

POP HL 

EX DE, HL 

LD C, 10 REMOVE 10 BYTES 
LDIR 

LD HL, (23621) PPC 
EX DE, HL 

LD (HL), E ADD LINE # TO VAR 
INC HL 
LD (HL), D 

LD D, (IY+13) SUB PPC 

INC D ADD SUB LINE # TO VAR 

INC HL 

LD (HL), D 

CK NEXT CALL 7556 NEXT LOOP 

RET NC . i 

LD HL, (23621) PPC 
LD (23618), HL TO NEW PPC 
LD A, (23623) SUB PPC 
NEG 

LD D, A 

L-D H, (23740) SYS CON ADDR 
INC HL 
LD A, (HL) 

CP 2 CHAN 2? 

NR NZ, 24 (7410) CET CHAR ADDR 

INC HL 

INC HL 

INC HL 

LD A, (HL) 
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SAVE LOW NIBBLE 


7390 

E6, OF 




7392 

4F 




7393 

06,00 




7395 

CD,99, 

64 



7398 

ED,4B, 

45, 

5C 


7402 

CD,CF, 

17 



7405 

60 




7406 

69 




7407 

2B 




7408 

18, 03 




7410 

2A,5D, 

5C 

GET CHAR ADDR 

7413 

1E, 1F 



FIND NEXT 

7415 

ED,4B, 

55, 

5C 

FIND NEXT LOOP 

7419 

CD,28, 

ID 



7422 

ED,43, 

55., 

5C 


7426 

FD,46, 

38 



7429 

38, IF 




7431 

E7 




7432 

F6,20 




7434 

B8 




7435 

28,03 




7437 

E7 




7438 

18, E7 




7440 

E7 



NEXT FOUND 

7441 

3E, 01 




7443 

92 




7444 

32,44, 

5C 



7447 

21,26, 

5C 



7450 

6E 




7451 

CB, 7D 




7453 

28,06 




7455 

01,00, 

FF 



7458 

CD,99, 

64 



7461 

C9 



RETURN 

7462 

CF 



ERR C 

7463 

OB 





AND 15 
LD C, A 
LD B, O BANK # 0 

CALL 25753 BANK ENABLE 
LD BC, (23621) RFC 
CALL 6095 GET AROS LINE 
LD H, B 
LD L, C 
DEC HL 

JR 3 (7413) F r IND NEXT 
LD HL, (23625) E PRC 
LD E, 243 NEXT 

LD BC, (23637) NEXT LINE 
CALL 7464 SKIP 
LD (23637), BC NEXT LINE 
l_D B, (IY+56) MEM 
JR C, 31 (7462) ERR C 

RST 32 NEXT CHAR 
OR 32 MAKE A CAP LETTER 
CP B RIGHT NEXT? 

JR Z, 3 (7440) NEXT FOUND 

RST 32 NEXT CHAR 

JR 231 (7415) FIND NEXT LOOP 

RST 32 NEXT CHAR 

LD A, 1 

SUB D 

LD (23620), A NS PPC 
L.D HL, 23740 AT SYS CON 
LD L, (HL) 

BIT 7, L CART PRESENT? 

JR Z, 6 (7461) RETURN 
LD BC, B=255 BANK # 

CALL 25753 BANK ENABLE 
RET 

RST 8 ERROR 
C Nonsense in BASIC 


LOOK IN PROGRAM SUBROUTINE (TO FIND DATA, DEF FN. OR NEXT) 


7464 

7E 

SKIP 

7465 

FE, 

3 A 

7467 

28, 

20 

7469 

n"r 

LOOK PROG LOOP 

7470 

7E 


7471 

E6, 

CO 

7473 

T ~7 
/ 


7474 

CO 


7475 

7B 


7476 

FE, 

E4 

7478 

20, 

03 

7480 

nn 

C7,5C AROS DATA 

7483 

46 

SKIP AROS DATA 

7484 

T 

xL 


7485 

4E 


7486 

ED, 

43,42,5C 

7490 

*->"T 



LD A, (HL) 

CP 58 : ? 

JR Z, 32 (7501) MORE STATEMENTS 
INC HL 
LD A, (HL) 

AND 192 SAVE BITS 6 Z< 7 
SCF 

RET NZ 
LD A, E 
CP 228 DATA? 

JR NZ, 3 (7483) SKIP AROS DATA 
LD (23751), HL AROS DATA ADDR 
LD B, (HL) 

INC HL 
LD C, (HL) 

LD (23618), BC NEW PPC 
INC HL LENGTH TO BC 






75 


7491 

4E 

7492 

OT 

7493 

46 

7494 

E5 

7495 

09 

7496 

44 

7497 

4D 

7498 

El 

7499 

16 , 00 

7501 

C5 MORE 

7502 

CD,F3,16 

7505 

Cl 

7506 

DO 

7507 

18, D8 

NEXT 

COMMAND ROUT 

7509 

FD,CB,37,4E 

7513 

C2,91,IB 

7516 

2A,4D,5C 

7519 

CB, IF 

7521 

28, IF 

-r cr 
/ 

"If 

7524 

22,68,5C 

7527 

EF 

7528 

7529 

EO 

E2 

7530 

OF 

7531 

CO 

7532 

02 

7533 

38 

7534 

CD,84,ID 

7537 

D8 

7538 

2A,68,5C 

7541 

1 1 , OF , 00 

7544 

19' 

7545 

5E 

7546 

23 

7547 

56 

7548 

23 

7549 

66 

7550 

EB 

7551 

CB,FD,IE 

-7 crcr /} 

/ -_J 4 

CF 

7555 

00 

NEXT 

LOOP SUBROUT] 

7556 

EF 

7557 

El 

7558 

EO 

7559 

E2 

7560 

36 

7561 

00,02 

7563 

01 

7564 

03 

7565 

37 


STATEMENTS 


NEXT 


ERR 1 


NEXT LOOP 


LIMIT V 


LD C, (HL) 
INC HL 
LD D, (HL) 
PUSH HL 
ADD HL, BC 
LD B, H 
L.D C, L 
POP HL 
LD D, O 
PUSH BC 
CALL 5875 
POP BC 
RET NC 


HL AT NEXT LINE 
XFER TO BC 


SUB LINE .1 


JR 216 (7469) LOOK PROG LOOP 


BIT 1, (IY+55) VAR FOUND? 

JP NZ, 7057 ERR 2 
LD HL, (23629) DEST ADDR 
BIT 7, (HL) A "FOR" VAR? 
JR Z, 31 (7554) ERR 1 

INC HL 

LD (23656), HL MEM 
RST 40 FP CALC 
GET MEM 0 
GET MEM 2 
ADD 

STK MEM 0 
DELETE 
END FP 

CALL 7556 NEXT LOOP 
RET C 

LD HL, (23656) MEM 
LD DE, 15 

ADD HL, DE AT MEM 2 
LD E, (HL) 

INC HL 
LD D, (HL) 

INC HL 
LD H, (HL) 

EX DE, HL 
JP 7933 GO TO—2 
RST 8 ERROR 
1 NEXT without FOR 


RST 40 FP CALC 
GET MEM 1 
GET MEM O 
GET MEM 2 STEP 
TEST <0 

JP IF TRUE, 2 (7564) LIMIT V 

EXCHANGE 

SUBTRACT 

TEST >0 
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7566 

00 , 04 


JUMP IF TRUE, 4 (6571) IMPOSSIBLE 

7568 

38 


END FP 

7569 

A7 


AND A CLEAR FLAGS 

7570 

C9 


RET 

7571 

38 IMPOSSIBLE 

END FP 

7572 

”7*7 

/ 


SCF 

7573 

C9 


RET 

READ 

COMMAND ROUTINE 


7574 

E7 READ 

NEXT VAR 

RST 32 NEXT CHAR 

7575 

CD,82,IB 

READ 

CALL 7042 TEM 1 

7578 

CD,39,28 


CALL 10377 INTERPRET? 

7581 

CA,78,IE 


JP Z, 7800 READ VAR CHAR 

7584 

DF 


RST 24 GET CHAR 

—r i— o t -~.r 
/ <lJ O 

22,5F,5C 


LD (23647), HL X POINTER (SAVE 

7588 

21,C6,5C 

CK CART 

LD HL, 23750 AT AROS FLAGS) DATA 

7591 

6E 

' 

L.D L, (HL) POSN) 

7592 

CB , 7D 


BIT 7, L CART PRESENT? 

7594 

CA,52,IE 


JP Z, 7762 DO NORMAL READ 

7597 

2A,BC , 5C GET 

CART DATA 

LD HL, (23740) SYS CONF ADDR 

7600 

11 , 04,00 


LD DE, 4 

7603 

19 


ADD HL, DE 

7604 

7E 


LD A, (HL) 

7605 

E6, OF 


AND 15 SAVE LOW NIBBLE 

7607 

06,00 


LD B, 0 BANK # 

7609 

4F 


L_D C, A 

7610 

CD,99,64 


CALL 25753 BANK ENABLE 

7613 

2A,57,5C 


LD HL, (23639) DATA ADDR 

7616 

7E READ 

CART DATA 

LD A, (HL) 

7617 

FE, 2C 


CP 44 ","? 

7619 

23, 13 


JR Z, 19 (7640) UPDATE CART DATA 

7621 

1E, E4 


LD E, 228 DATA FIND NEXT DATA 

7623 

CD,28,ID 


CALL 7464 SKIP LINE 

7626 

30,09 


JR NC, 9 (7637) NEXT DATA LINE 

7628 

01,00,FF RETURN HOME 

LD B, 255 BANK # 

7631 

CD,99,64 


CALL 25753 BANK ENABLE 

7634 

C3,62,IE 


JP 7778 ERR E 

7637 

22,57,50 NEW 

DATA ADDR 

LD (23639), HL DATA ADDR 

7640 

2A,C7,5C UPDATE CART DATA 

LD HL, (23751) CART CUR DATA ADDR 

7643 



INC HL SKIP LINE # 

7644 



INC HL . / 

7645 

4E 


LD C, (HL) LENGTH TO BC 

7646 



INC HL 

7647 

46 


L_D B, (HL) 

7648 

ED,43,C9,5C 


LD (23753), BC UPD CART DATA LEN 

7652 

O1,OO,FF 


LD BC, B=255 BANK tt 

7655 

CD,99,64 


CALL 25753 BANK ENABLE 

7658 

ED,4B,C9,5C 


LD BC, (23753) LEN CUR DATA LINE 

7662 

2A,4F,5C 


LD HL, (23631) CHANS 

7665 

E5 


PUSH HL SAVE CHAN 

7666 

2B 


DEC HL 

7667 

CD,BB,12 


CALL 4795 INSERT BC SPACES 

7670 

D1 


POP DE 

7671 

21,FF,00 


LD HL, 255 

7674 

E5 


PUSH HL 
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7675 2A,C7,5C 

7678 23 - 

7679 23 

7680 23 

7681 23 

7682 E5 

7683 D5 

7684 ED,4B„C9,5C 

7688 C5 

7689 01,01,00 

7692 C5 

7693 CD,22,67 
7696 2A,C7,5C 
7699 ED,5B,C9,5C 

7703 19 

7704 1 1,04,00 

7707 19 

7708 ED,4B,57,5C 

7712 A7 

7713 ED,42 

7715 44 

7716 4D 

7717 2A,4F,5C 

7720 A7 

7721 ED,42 

7723 E5 

7724 23 

7725 22,5D,5C 
7728 CD,B9,IB 

7731 D1 

7732 2A,5D,5C 

7735 A7 

7736 ED,52 

7738 ED,5B,57,5C 

7742 19 

7743 22,57,5C 
7746 2A,4F,5C 
7749 ED,4B,C9,5C 

7753 A7 

7754 ED,42 
7756 CD,50,17 
7759 C3,6E,1E 

7762 2A,57,5C DO NORMAL READ 

7765 7E 

7766 FE,2C 
7768 CA,64,IE 

7771 1E,E4 NEED NEW DATA LINE 
7773 CD,28,ID 
7776 30,02 

7778 CF' ERR E 

7779 OD 

7780 CD,77,00 NEXT READ 
7783 CD,B9,IB 

7786 DF 

7787 22,57,5C 


LD HL, (23751)CART CUR DATA LINE 
INC HL SKIP LINE # 

INC HL 

INC HL SKIP LINE LENGTH 
INC HL 

PUSH HL SETUP XFER BYTES 
PUSH DE 

LD BC, (23753) CART DATA LINE LEN 
PUSH BC 
LD BC, 1 
PUSH BC 

CALL 26402 XFER BYTES 
LD HL, (23751) CART CUR DATA LINE 
LD DE, (23753) CART DATA LINE LEN 
ADD HL, DE HL=NEXT LINE ADDR 
LD DE, 4 

ADD HL, DE TO TOKEN 
LD BC, (23639) DATA ADDR 
AND A CLEAR FLAGS 
SBC HL, BC 
LD B, H 
LD C, L 

LD HL, (23631) CHANS 
AND A CLEAR FLAGS 
SBC HL, BC 
PUSH HL 
INC HL 

LD (23645), HL CH ADDR 
CALL 7097 FETCH A VALUE 
POP DE 

LD HL, (23645) CHAR ADDR 
AND A CLEAR FLAGS 
SBC HL, DE 

LD DE, (23639) UPD DATA ADDR 
ADD HL, DE 

LD (23639), HL DATA ADDR 

LD HL, (23631) CHANS 

LD BC, (23753) CUR DATA LINE LEN 

AND A CLEAR FLAGS 

SBC HL, DE 

CALL 5968 DEL REC (RECLAIM-2) 

JP 7790 READ DATA ADDR ' 

LD HL, (23639) DATA ADDR 
LD A, (HL.) 

CP 44 ","? 

JP Z, 7780 NEXT READ 
LD E, 228 DATA 

CALL 7464 SKIP (FIND NEXT DATA LN 

JR NC, 2 (7780) NEXT READ 

RST 8 ERROR 

E Out of DATA 

CALL 119 INC CHAR ADDR 

CALL 7097 FETCH A VALUE 

RST 24 GET CHAR 

LD (23639), HL DATA ADDR 
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7790 2A,5F,5C READ DATA ADDR 
7793 FD,36,26,00 
7797 CD,78,00 

7800 DF READ VAR CHAR 

7801 FE,2C 
7803 CA,96,1D 
7806 CD,44,IB 

7809 C9 

DATA COMMAND ROUTINE 

7810 CD,89,28 DATA 

7813 20,OB 

7815 CD,54,28 LOOK FOR 
7818 FE,2C 
7820 C4,44,1B 

7823 E7 

7824 18,F5 

7S26 3E,E4 LOOK FOR LINE 

F'ASSBY SUBROUTINE (FOR DATA ( 

7828 4D PASS BY 

7829 ED,B9 
7831 11,00,02 
7834 C3,F3,16 


LD HL, (23647) X POINTER 
LD (IY+48), 0 RESET FLAG X 
CALL 120 SAVE CHAR ADDR 
RST 24 GET CHAR 
CP 44 " ,"? 

JP Z, 7574 READ NEXT READ VAR 
CALL 6980 END? 


CALL 10377 INTERPRET? 

•JR NZ, 11 (7826) LOOK FOR LINE 

CALL 10324 EXPRESSION? 

CP 44 ","? 

CALL NZ, 6980 END? 

RST 32 NEXT CHAR 
JR 245 (7815) DATA LOOP 
LD A, 228 DATA 

' DEF FN) 

L-D B, A A HOLDS DATA OR DEF FN 
CPDR 

LD DE, 512 

JP 5875 FIND SUB LINE 1 


RESTORE COMMAND ROUTINE 
7837 CD,23,IF RESTORE 

7840 2A,BC,5C 

7843 23 

7844 7E 

7845 FE,02 
7847 20,21 

7349 23 CART RESTORE 

7850 23 

7851 23 

7852 7E 

7853 E6,OF 

7855 C5 

7856 4F 

7857 06,00 
7359 CD,99,64 

7862 Cl 

7863 CD,CF,17 

7866 01,00,FF RETURN HOME 

7869 CD,99,64 
7872 13,03 
7874 CD,D6,16 

7877 2B SKIP FIND LINE ADDR 

7878 22,57,5C 

7881 C9 

7882 60 RESTORE BC SPACES 

7883 69 

7884 CD,D6,16 

7887 2B 

7888 22,57,5C 


CALL 7971 FIX-U (FIND INT) 

LD HL, (23740) SYS CONF ADDR 
INC HL 
LD A, (HL) 

CP 2 

JR NZ, 33 (7832) RESTORE BC SF'CS 

INC HL 

INC HL 

INC HL 

LD A, (HL) 

AND 15 SAVE LOW NIBBLE 
PUSH BC SETUP BNK ENABLE 
LD C, A 
LD B, O 

CALL 25753 BANK ENABLE 
POP BC 

CALL 6095 GET AROS LINE 
LD B, 255 BANK # 

CALL 25753 BANK ENABLE 
JR 3 (7877) SKIP FIND LINE ADDR 
CALL 5846 FIND LINE ADDR 
DEC HL 

LD (23639), HL DATA LINE 
RET 

LD H, B 
LD L, C 

CALL 5846 FIND LINE ADDR 
DEC HL 

LD (23639), HL DATA LINE ADDR 
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7891 C9 

RANDOMIZE COMMAND ROUTINE 

7892 CD,23,IF RAND 

7895 78 

7396 B1 
7897 20,04 
7899 ED,4B,78,5C 
7903 ED,43,76,5C 

7907 C9 

CONTINUE COMMAND ROUTINE 

7908 2A,6E,5C CONT 

7911 24 

7912 CA,42,IB 

7915 25 

7916 FD,56,36 
7919 18,OC 

GO TO COMMAND 
7921 CD,23,IF 

7924 60 

7925 69 

7926 16,00 
7923 7C 
7929 FE,FO 
7931 30,2C 
7933 22,42,5C 
7936 FD,72,OA 

7939 C9 

OUT COMMAND ROUTINE 

7940 CD,OF,IF OUT 

7943 ED,79 

7945 C9 


RET 


CALL 7971 FIX-U (FIND INT) 
LD A, B 

OR C BC=0? 

JR NZ, 4 (7903) NEW SEED 
LD BC, (23672) FRAMES 
LD (23670), BC SEED 
RET 


LD HL, (23662) OLD PPC 
INC H 

JP Z, 6978 ERR H 
DEC H 

LD D, (IY+84) HI BYTE STK END 
JR 12 (7933) GO TG-2 


CALL 7971 FIX-U(FIND INT) 
LD H, B LINE # TO HL 
LD L, C 
LD D, 0 
LD A, H 
CP 240 LIST? 

JR NC, 44 (7977) ERR B 
LD (23618), HL NEW PPC 
LD (IY+10), D NS PPC 
RET 


CALL 7951 GET 2 PARAMETERS 

OUT (C), A 

RET 


ROUTINE 

JUMP(GO TO) 

GO TO—1 

GO TQ-2 


POKE COMMAND ROUTINE 

7946 CD,OF,IF POKE 

7949 02 

7950 C9 


CALL 7951 GET 2 PARAMETERS 

LD (BC), A 

RET 


TWO PRAMETERS ROUTINE 

7951 CD,93,31 GET 2 PARAMETERS 

7954 38,15 

7956 28,02 

7958 ED,44 

7960 F5 SAVE 1ST 

7961 CD,23,IF 

7964 Fl‘ 

7965 C9 


CALL 12691 FP TO A 
JR C, 21 (7977) ERR B 

JR Z, 2 (7960) SAVE 1ST 
NEG 

PUSH AF 

CALL 7971 FIX-U (FIND INT) 

POP AF GET 1ST 

RET 


FIND INTEGERS 
7966 CD,93,31 
7969 18,03 
7971 CD,60,31 


ROUTINES 

FIX—U1 (SINGLE INT) CALL 12691 FP TO A 

JR 3 (7974) FIND INT-1 
FIX-U (DOUBLE INT) CALL 12680 FP TO BC 
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7974 38,01 FIND -INT-1 

7976 C8 

7977 CF ERR B 

7978 0A 

RUN COMMAND ROUTINE- 

7979 CD,FI,IE RUN 

7982 01,00,00 

7985 CD,CA,IE 
7988 18,03 


JR C, 1 (7977) ERR B 

RET Z 

RST 8 ERROR 
B I NT ou.t of range 


CALL 7921 JUMP (GO TO) 

LD BC, O DO A RESTORE O 
CALL 7882 RESTORE BC 
JR 3 (7993) CLEAR BC 


CLEAR COMAND ROUTINE 

7990 CD,23,IF CLEAR 

/993 78 CLEAR-RUN CLEAR BC 

7994 B1 

7995 20,04 

7997 ED,4B,B2,5C 

8001 C5 

8002 ED,5B,4B,5C 
8006 2A,59,5C 

8009 2B 

8010 CD,4D,17 
8013 CD,A6,08 
8016 21,C6,5C 

8019 6E 

8020 CB,7D 
8022 28,OF 

8024 2A,BC,5C CART CLEAR 

8027 23 

8028 23 

8029 5E 

8030 23 

8031 56 

8032 EB 

8033 2B 

8034 22,57,5C 
8037 18,07 

8039 2A,53,5C NORMAL CLEAR 

8042 2B 

8043 22,57,5C 

8046 2A,65,5C CONTINUE CLEAR 
8049 11,32,00 

8052 19 

8053 D1 

8054 ED,52 
8056 30,08 
8058 2A,B4,5C 

8061 A7 

8062 ED,52 
8064 30,02 

8066 CF ERR M 

8067 15 

8068 EB 

8069 22,B2,5C 
8072 D1 


CALL 7971 FIX—U1(FIND SINGLE INT) 

LD A, B 

OR C BC —0? 

JR NZ, 4 (3001) SAVE VALUE 
LD BC, (23730) SEED 
PUSH BC 

LD DE, (23627) VARS 
LD HL, (23641) E LINE 
DEC HL 

CALL 5965 DEL DE (CLEAR VARS) 

CALL 2214 K-CLS 

LD HL, 23750 AT CART FLAGS 

LD L, (HL> 

BIT 7, L CART PRESENT? 

JR Z, 15 (8039) NORMAL CLEAR 
LD HL, (23740) SYS CONF ADDR 
INC HL 
INC HL 
LD E, (HL) 

INC HL 
LD D, (HL) 

EX DE, HL 
DEC HL 

LD (23639), HL DATA ADDR 
JR 7 (8046) CONTINUE CLEAR 
LD HL, (23635) PROGRAM 
DEC HL 

LD (23639), HL DATA ADDR 

LD HL, (23653) STK END 

LD DE 50 

ADD HL, DE 

POP DE 

SBC HL, DE 

JR NC, 8 (8068) ERR M 
LD HL, (23732) P RAMTOP 
AND A CLEAR FLAGS 
SBC HL, DE 

JR NC, 2 (8068) SKIP ERR 
RST 8 ERROR 
M RAMTOP no good 
EX DE, HL 

LD (23730), HL RAMTOP 
POP DE 


SKIP ERROR 
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8073 Cl 

8074 2A,C0,5C 

8077 2B 

8078 36,3E 

8080 2E-! 

8081 F9 

8082 C5 

8083 ED,73,3D,5C 

8087 EB 

8088 E9 

GOSUB COMMAND ROUTINE 

8089 D1 GOSUB 

8090 FD,66,OD 

8093 24 

8094 E3 

8095 33 

8096 ED,4B,45,5C 

8100 C5 

8101 E5 

8102 ED,73,3D,5C 

8106 D5 

8107 CD,FI,IE 
8110 2A,CO,5C 

8113 25 

8114 11,10,00 

8117 19 

8118 ED,72 

8120 D3 

8121 18,14 

TEST ROOM SUBROUTINE 
8123 2A,65,5C CK SiZe 

8126 09 

8127 38,OE 

8129 EB 

8130 21,50,00 

8133 19 

8134 38,07 

8136 ED,5B,B2,5C 
8140 ED,52 

8142 D8 

8143 2E,03 ERR 4 

8145 C3,55,00 

RETURN COMMAND ROUTINE 

8148 Cl RETURN 

8149 El 

8150 D1 

8151 7A 

8152 FE,3E 
8154 28,OB 

8156 3B 

8157 E3 

8158 EB 


POP BC 

LD HL, (23744) MACH STK BOTTOM 
DEC HL 

LD (HL), 62 "?" GOSUB STK MARKER- 
DEC HL 
LD SP, HL 
PUSH BC 

LD (23613), SP ERR SP 
EX DE, HL 
JP (HL) 


POP DE 

LD H, (IY+13) SUB PPC 
INC H 

EX (SP), HL SAVE STATEMENT RETURN 
INC SP 

LD BC, (23621) PPC 
PUSH BC SAVE LINE # 

PUSH HL 

LD (23613), SP SUB PPC 
PUSH DE SAVE RETURN ADDR 
CALL 7921 JUMP 

LD HL,(23744) SYS CONF TABLE 

DEC H 

L.D DE, 16 

ADD HL, DE 

SBC HL, SP 

RET C 

JR 20 (8143) ERR 4 


LD HL, (23653) STK END 
ADD HL, DE 

JR C, 14 (8143) ERR 4 
EX DE, HL 
LD HL, 80 
ADD HL, DE 

JR C, 7 (8143) ERR 4 
LD DE, (23730) RAMTQP 
SBC HL, DE 
RET C 

LD L, 2 (4 Out of memory) 

JP 85 ERR-3 


POP BC GET STATEMENT RETURN 
POP HL GET ERROR ADDR 
POP DE LAST ENTRY ON STACK 
LD A, D 

CP 62 "?" END MARKER? 

JR Z, 11 (8167) ERR 7 

DEC SP 
EX (SP), HL 
EX DE, HL 
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8159 ED,73,3D,5C 

8163 C5 - 

8164 C3,FD,IE 

8167 D5 

8168 E5 

8169 CF 


LD (23613), SP ERR SP 
PUSH BC 

JP 7933 GO TO—2 

ERR 7 PUSH DE REPLACE END MARKER 
PUSH HL REPLACE ERROR ADDR 
RST 8 ERROR 


8170 06 


7 RETURN without GOSUB 


PAUSE COMMAND ROUTINE 
8171 FD,CB,01,AE PAUSE 

8175 CD,23,IF 

817S 76 PAUSE AGAIN 

8179 OB 
8130 78 
8181 81 
8182 28,OC 

8184 78 

8185 A1 
8136 3C 
8187 20,01 

8189 03 

8190 FD,CB,01,6E KEYHIT? 
3194 28,EE 

8196 FD,CB,01,AE PAUSE END 
8200 C9 


RES 5, (IY+1) RESET KEYHIT 

CALL 7971 FIX-U (FIND INT) 

HALT (WAIT FOR MASKABLE INTERRUPT- 
DEC BC 
LD A, B 

OR C BC= 0? 

JR Z, 12 (8196) PAUSE END 
LD A, B 
AND C 
INC A 

JR NZ, 1 (8190) KEYHIT? 

INC BC 

BIT 5, (IY+1) KEYHIT? 

JR Z, 238 (8178) PAUSE AGAIN 
RES 5, (IY+1) KEYHIT OFF 

RET 


BREAK KEY SUBROUTINE 

8201 3E,7F BREAK? 

8203 DB,FE 

8205 IF 

8206 B3 

8207 FD,CB,7D,76 
8211 28,02 

8213 37 
3214 C9 

8215 3E,FE NO BREAK 

8217 DB,FE 

8219 IF 

8220 C9 

DEF FN COMMAND ROUTINE 

8221 CD,89,28 DEF FN 

8224 28,05 

8226 3E,CE 
8228 C3,94,IE 

8231 FD,CB,01,F6 # ON 

8235 CD,4B,30 
8238 30,16 

8240 E7 

8241 FE,24 
8243 20,OF 

8245 FD,CB,01,B6 STRING ON 

8249 E7 

8250 FE,28 
8252 20,3C 


LD A, 127 FORM PORT ADDR 7FFE 
IN A, (254) 

RR A 
RET C 

BIT 6, (IY+125) HI BYTE ERR LINE 

JR Z, 2 (8215) NO BREAK 
SCF BREAK ON 
RET 

LD A, 254 FORM PORT ADDR FEFE 
IN A, (254) READ BYTE 
RR A 
RET 


CALL 10377 INTERPRET? 

JR Z, 5 (8231) # ON 
LD A, 206 DEF FN 
JP 7828 PASS BY 
SET 6, (IY+1) # ON 

CALL 12363 ALPHA? 

JR NC, 22 (8262) ERROR CK 

RST 32 NEXT CHAR 
CP 36 $? 

JR NZ, 5 (8250) BRACKET? 

RES 6, (IY+1) STRING ON 

RST 32 NEXT CHAR 
CP 40 (? 

JR NZ, 60 (8314) SYN ERR CK 


BRACKET? 
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8254 

El 7 


8255 

FE, 29 


8257 

23, 20 


8259 

CD,4B, 

30 CK ALPHA 

8262 

D2,ED, 

1B ERROR CK 

8265 

EB 


8266 

E7 


8267 

FE , 24 


8269 

20,02 


8271 

EB 

GOTO NAME END 

8272 

E7 


8273 

EB 

SKIP NAME END 

8274 

01 , 06 , 

00 

8277 

CD,BB, 

12 

8280 

n -t 


O '■JO 1 

V.J -C_ U_‘ 1 

O ~r 


OOOO 

jL. V_* jL. 

36, OE 


8284 

FE, 2C 


8286 

20 , 03 


8288 

E7 


8289 

IS, EO 


8291 

FE, 29 

SKIP RETURN 

8293 

20, 13 


8295 

E7 


8296 

FE, 3D 


8298 

20, OE 


8300 

E7 


8301 

3A , 3B , 

5C 

8304 

F5 


8305 

CD,54, 

28 

8308 

FI 


8309 

FD,AE, 

01 

8312 

E6, 40 


8314 

C2,ED, 

IB SYN ERROR CK 

8317 

CD,44, 

IB 

ON ERR COMMAND ROUTINE 

8320 

DF 

ON ERR 

8321 

FE, 7F 


8323 

28,29 


8325 

FE, EC 


8327 

28,33 


S329 

FE, E8 


8331 

C2,ED, 

IB 

8334 

E7 

ON ERR CONT 

3335 

CD,44, 

IB 

8333 

FD,CB, 

7D,7E 

8342 

C8 


8343 

2A , B8 , 

5C 

8346 

ZL'-' 

5 , 

5C 

8349 

3A,BA, 

5C 

8352 

32,44, 

5C 

8355 

FD,CB, 

7D,B6 

8359 

El 

MAKE 7 SPACES 

8360 

11,07, 

00 


RST 32 NEXT CHAR 
CP 41 )? 

JR Z, 32 (8291) SKIP RETURN 
CALL 12363 ALPHA? 

JP NC 7149 SYN ERR 
EX DE, HL 
RST 32 NEXT CHAR 
CP 36 $? 

JR NZ, 2 (8273) SKIP NAME END 
EX DE, HL 
RST 32 NEXT CHAR 
EX DE, HL 

LD BC, 6 NEEDS 6 SPACES 
CALL 4795 INSERT BC SPACES 
INC HL INSERT SLUG 

INC HL 

LD (HL), 14 SLUG 

CP 44, ","? 

JR NZ, 3 (8291) SKIP RETURN 
RST 32 NEXT CHAR 
JR 224 (8259) CHECK ALPHA 
CP 41 )? 

JR NZ, 19 (8314) SYN ERROR CK 
RST 32 NEXT CHAR 
CP 61 =? 

JR NZ, 14 (8314) SYN ERROR CK 

RST 32 NEXT CHAR 

LD A, (23611) FLAGS 

PUSH AF SAVE FLAGS 

CALL 10324 EXPRESSION 

POP AF GET OLD FLAGS 

XOR (IY+1) FLAGS (COMPARE WITH 

AND 64 # ON NEW) 

JP NZ, 7149 SYN ERR 

CALL 6980 END? 


RST 24 GET CHAR 
CP 127 RESET? 

JR Z, 41 (8366) ON ERR RESET 

CP 236 GOTO? 

JR Z, 51 (3380) ON ERR GOTO 

CP 232 CONTINUE? 

JP NZ, 7149 SYN ERR 
RST 32 NEXT CHAR 
CALL 6980 END? 

BIT 7, (IY+125) HI BYTE ERR LINE 

RET Z 

LD HL, (23736) ERR LINE # 

LD (23618), HL NEW PPC 

LD A, (23733) HI BYTE NEXT LINE 

LD (23620), A NS PPC 

RES 6, (IY+125) HI BYTE ERR LINE 

POP HL 

LD DE, 7 








84 


8363 

19 


8364 

E5 

-... • - . - * . = 

8365 

C9 


8366 

E7 

ON ERR RESET 

8367 

CD,44, 

IB 

8370 

FD,CB, 

7D, BE 

8374 

FD,CB, 

7D, B6 

8378 

18, EB 


8380 

E7 

ON ERR GO TO 

8381 

CD,E5, 

IB 

8384 

CD,44, 

IB 

8387 

CD,60, 

31 

8390 

78 


8391 

E6,3F 


8393 

F6,80 


8395 

47 


8396 

ED,43, 

B6, 5C 

8400 

C9 


STIC* 

COMMAND ROUTINE 

8401 

DF 

STICK 

8402 

FE,2C 


8404 

20,0A 


8406 

CD,89, 

28 

8409 

28, OC 


841 1 

EF 


8412 

A1 


8413 

38 


8414 

IS, 07 


8416 

CD,E5, 

IB EXPECT # 

8419 

FE,2C 


8421 

20,35 


8423 

E7 

GET NEXT CHAR 

8424 

FE, OD 


8426 

28,09 


8428 

FE, 3A 


S430 

28,04 


8432 

CD,E5, 

IB 

8435 

18,09 


8437 

01,OF, 

27 DEFAULT USE 9999 

S440 

CD,89, 

28 

8443 

C4,E9, 

30 

8446 

CD,44, 

IB SKIP DEFAULT 

8449 

CD,IE, 

21 

8452 

23 


8453 

CD,D6, 

16 

8456 

E5 


8457 

CD,IE, 

21 

8460 

CD,D6, 

16 

8463 

EB 


8464 

El 


8465 

E5 


8466 

37 


8467 

ED, 52 


8469 

38,05 



ADD HL, DE 
PUSH HL 
RET 

RST 32 NEXT CHAR 
CALL 6980 END? 

RES 7, (IY+125) HI BYTE ERR LINE 

RES 6, (IY+125) 

JR 235 (8359) MAKE 7 SPACES 

RST 32 NEXT CHAR 

CALL 7141 TEM 6 (EXPECT 1 #) 

CALL 6980 END? 

CALL 12640 FP TO BC 
LD A, B 

AND 63 SAVE 5 LOW BITS 

OR 128 SET BIT 7 (MAKE VARIABLE 

LD B, A 

LD (23734), BC ERR LINE 
RET 


RST 23 GET CHAR 
CP 44 ",''? 

JR N2, 10 (8416) EXPECT # 

CALL 10377 INTERPRET? 

JR 2, 12 (8423) GET NEXT CHAR 

RST 40 FP CALC 
STK 1 
END FP 

JR 7 (8423) GET NEXT CHAR 
CALL 7141 TEM 6 (EXPECT 1 #) 
CP 44 " ,"? 

JR N2, 53 (8476) ERR C 
RST 32 NEXT CHAR 
CP 13 ENTER? 

JR 2, 9 (8437) USE 9999 
CP 58 :? 

JR 2, 5 (8437) USE 9999 
CALL 7141 REM 6 (EXPECT 1 #) 
JR 9 (8446) SKIP DEFAULT 
LD BC, 9999 
CALL 10377 INTERPRET? 

CALL N2, 12521 STK BC 

CALL 6980 END? 

CALL 8478 GET # 

INC HL 

CALL 5846 FIND LINE ADDR 
PUSH HL 

CALL 8478 GET # 

CALL 5846 FIND LINE ADDR 

EX DE, HL 

POP HL 

PUSH HL 

SCF 

SBC HL, DE 

JF; C, 5 (8476) ERR C 






85 


8471 

El 


8472 

CD,4D,17 

~ — - 

8475 

C9 


8476 

CF 

ERR C 

8477 

OB 


8478 

CD,60,31 

GET # 

8431 

78 


8482 

E6,3F 


8484 

67 


8485 

69 


8486 

C9 



POP HL 

CALL 5965 DEL DE (RECLAIM-1) 
RET 

RST 8 ERROR 
C Nonsense in BASIC 
CALL 12640 FP TO BC 
LD A, B 

AND 63 SAVE 5 LOW BITS 
LD H, A 
LD L, C 
RET 


SOUND CMMAND ROUTINE 

8487 E7 READ NEXT SOUND CHAR 

8488 CD,DD, 1B SOUND 

8491 CD,89,28 

8494 28,16 
8496 CD,93,31 

8499 F5 

8500 CD,93,31 
3503 FE,11 
8505 D2,ED,IB 

8508 D3 

8509 3C 

8510 FA,ED,IS 
8513 D3,F5 

8515 FI 

8516 D3,F6 

8518 DF NEXT EXPRESSION'? 

8519 FE,3B 
8521 28,DC 
8523 CD,44,IB 

8526 C9 

UNSTACK Z SUBROUTINE 

8527 CD,89,28 UNSTACK Z 

3530 El 

8531 CS 

8532 E9 

LPRINT AND PRINT COMMAND ROUT] 


8533 

3E, 

03 


LPRINT 

8535 

18, 

OA 



8537 

3A, 

C6, 

5C 

PRINT 

8540 

CB, 

87 



8542 

~r 

*— * -L , 

C6, 

5C 


8545 

3E, 

02 



8547 

CD, 

89, 

28 

SKIP CART/S 

8550 

C4, 

30, 

12 


8553 

CD, 

89, 

28 


8556 

04, 

79, 

21 


8559 

CD, 

88, 

08 


8562 

CD, 

7E, 

21 


8565 

CD, 

44, 

IB 


8569 

C9 





RST 32 NEXT CHAR 

CALL 7133 CLASS 8 NUMERIC/STR EXP 
CALL 10377 INTERPRET? 

JR Z, 22 (8518) NEXT EXPRESSION'? 
CALL 12691 FP TO A 
PUSH AF SAVE # 

CALL 12691 FP TO A 

CP 17 (ONLY 16 REGISTERS) 

JP NC, 7149 SYN ERR (# TOO BIG) 
DEC A TEST BIT 7 
INC A 

JP N, 7149 SYN ERR (# = O) 

OUT (254), A 
POP AF GET 1ST # 

OUT (246), A 
RST 24 GET CHAR 
CP 59 ;? 

JR Z, 220 (8487) READ NEXT SOUND 
CALL 6980 END? CHAR 

RET 


CALL 10377 INTERPRET? 

POP HL 
RET Z 
JP (HL) 

NE 

LD A, 3 PREPARE TO OPEN CHAN P 
JR 10 (8547) SKIP CART/S 
LD A, (23750) CART FLAGS 
RES O, A USE TOP SCREEN 
LD (23750), A RETURN FLAG 
LD A, 2 PREPARE TO OPEN CHAN S 
CALL 10377 INTERPRET? 

CALL NZ, 4656 SELECT CHAN 
CALL 10377 INTERPRET? 

CALL NZ, 8569 SET TOKEN FLAG 
CALL 2184 R ATTR TEMP 
CALL 8574 PRINT SEQUENCE 
CALL 6980 END? 

RET 




Rfp 


SET TOKEN FLAG SUBROUTINE., 


8569 

FD,CB,01 

,E6 SET TOKEN 

8573 

C9 


PRINT A SEQUENCE SUBROUTINE 

8574 

DF 

PRINT SEQUENCE 

8575 

CD,E4,21 


8578 

28, OD 


8580 

CD,ED,21 

CONS PRINT CONTR 

8583 

28, FB 


8585 

CD, 9B,21 


8588 

CD,ED,21 


8591 

28, F3 


8593 

FE, 29 

PRINT SEQ END 

8595 

C8 


START A NEW LINE (PRINT C-R) SI 

8596 

CD,4F,21 

PRINT C-R 

8599 

3E, OD 


8601 

D7 


3602 

C9 


PRINT ITEMS SUBROUTINE 

8603 

DF 

PRINT ITMES 

8604 

FE, AC 


8606 

20, OD 


8608 

CD,DC,IB 

DO AT 

8611 

CD,4F,21 


8614 

CD,60,26 


8617 

3E, 16 


8619 

18, 10 


8621 

FE, AD 

TRY TAB 

8623 

20, 12 


8625 

E7 

DO TAB 

8626 

CD,E5,IB 


3629 

CD,4F,21 


8632 

CD,23,IF 


8635 

3E, 17 


8637 

D7 

PRINT AT-TAB 

8638 

79 


8639 

D7 


8640 

78 


8641 

D7 


8642 

C9 


8643 

CD,9C,23 

CK COLOR TOKEN 

8646 

DO 


8647 

CD,OF,22 


8650 

DO 


8651 

CD,54,28 


8654 

CD,4F,21 


8657 

FD,CB,01, 

76 

8661 

CC,AF,2F 


8664 

C2,A1,31 


8667 

78 

PRINT STRING 


SET 4, (IY+1) TOKEN ON 

RET 


RST 23 GET CHAR 
CALL 8676 STRING END? 

JR Z, 13 (8593) PRINT SEQ END 
CALL 8685 PRINT CONTROLS 
JR Z, (8580) CONS PRINT CONTROLS 
CALL 8603 PRINT ITEMS 
CALL 8685 STRING END? 

JR Z, 243 (8580) CONS PRINT CONTR 
CP 41 )? 

RET 2 TREAT AS ENTER 
SUBROUTINE 

CALL 8527 UNSTACK Z 
LD A, 13 ENTER 
RST 16 PRINT CHAR 
RET 


RST 24 GET CHAR 
CP 172 AT? 

JR NZ, 13 (8621) TRY TAB 
CALL 7132 DYADIC (NEXT 2 #’S) 

CALL 8527 UNSTACK Z 
CALL 9824 GET X,Y 
LD A, 22 AT CONTROL 
JR 16 (8637) PRINT AT-TAB 
CP 173 TAB? 

NR NZ, 18 (8643) CK COLOR CONTROL 

RST 32 NEXT CHAR 

CALL 7141 TEM 6 (EXPECT 1#) 

CALL S527 UNSTACK Z 
CALL 7971 FIX-U (FIND INT) 

LD A, 23 TAB CONTROL 

RST 16 PRINT CHAR 

LD A, C . ! 

RST 16 PRINT CHAR 
LD A, B 

RST 16 PRINT CHAR 
RET 

CALL 9116 CK COLOR TOKEN 
RET NC 

CALL 8719 STREAM ALTER? 

RET NC 

CALL 10324 EXPRESSION? 

CALL 8527 UNSTACK Z 
BIT 6, (IY+1) #? 

CALL Z, 12207 GET STRING PARAM 
JP NZ, 12705 OUTPUT # 

LD A, B 







87 


8668 

bi 


8669 

OB 


8670 

cs 


8671 

1A 


8672 

13 


8673 

07 


8674 

18, F7 


END OF PRINTING SUBROUTINE 

8676 

FE, 29 

PRINT END? 

8678 

C8 


8679 

FE , 00 

TERM? 

8681 

C3 


8682 

FE, 3A 


8684 

C9 


PRINT POSITION SUBROUTINE 

8685 

DF 

PRINT SPACING 

8636 

FE, 3B 


8688 

28, 14 


8690 

FE, 2C 


8692 

20 , OA 


8694 

CD,89, 

?Q 

jL. 

8697 

28, OB 


8699 

3E, 06 


8701 

D7 


8702 

18, 06 


8704 

FE, 27 

NEW LINE? 

8706 

CO 


8707 

CD,94, 

21 

8710 

E7 

GET NEXT CHAR 

8711 

CD,E4, 

21 

8714 

20,01 


8716 

Cl 


8717 

BF 

NOT END 

8718 

C9 



OR B BOO? 

DEO BC * 

RET C 
L-D A, (DE) 

INC DE 

RST 16 PRINT CHAR 

JR 247 (S667) PRINT STRING 


CP 41 )? 

RET Z 

CP 13 ENTER? 
RET Z 
CP 58 :? 

RET 


RST 24 GET CHAR 
CP 59 ;? 

JR Z, 20 (8710) GET NEXT CHAR 
CP 44 " , "? 

JR NZ, 10 (8704) NEW LINE? 
CALL 10377 INTERPRET? 

JR Z, 11 (8710) GET NEXT CHAR 

LD A, 6 PRINT COMMA 
RST 16 PRINT CHAR 
JR 6 (8710) GET NEXT CHAR 
CP 39 '? 

RET NZ 

CALL 8596 START A NEW LINE 
RST 32 NEXT CHAR 
CALL 8676 STRING END? 

JR NZ, 1 (8717) NOT END 

POP BC 

CP A SET Z IF NOT END 
RET 


ALTER STREAM SUBROUTINE 

8719 

FE, 


STRIT 0(ALTER 

8721 

T~7 

/ 



8722 

CO 



8723 

E7 



8724 

CD, 

E5, 

IB 

8727 

A7 



8728 

CD, 

4F, 

21 

8731 

CD, 

IE, 

IF 

8734 

TO 
*—*-4- , 

CB, 

5C 

8737 

FE, 

10 


8742 

D2, 

3D, 

12 

8742 

CD, 

30, 

12 

8745 

A7 



8746 

C 9 




STREAM 


?) CP 35 "#"? 

SCF 

RET NZ . i 

RST 32 NEXT CHAR 
CALL 7141 TEM 6 (EXPECT 1 
AND A CLEAR FLAGS 


#) 


CALL 8527 UNSTACK Z 

CALL 7966 FIX-UKFIND SINGLE 

LD (23755), A STREAM # 

CP 16 (LAST CHAN =15) 

JP NC, 4669 ERR O 
CALL 4656 SELECT CHAN 
AND A CLEAR FLAGS 
RET 


I NT) 


INPUT COMMAND ROUTINE 
8747 3A,C6,5C 


INPUT 


LD A, (23750) CART FLAGS 




88 


3750 

CB,C7 


8752 

32,C6,5C 


8755 

CD,89,28 


8758 

28,08 


8760 

3E, 01 


8762 

CD,30,12 


8765 

CD,A9,08 


8768 

FD,36,02,01 

SKIP IF SYN 

8772 

CD,6B,22 


8775 

CD,44,IB 


8778 

ED,4B,38,5C 


8782 

3A,6B,5C 


8785 

B8 


8786 

38,03 


8788 

OE, 21 


8790 

47 


S791 

ED,43,88,5C 

RESET S-POS 

8795 

3E, 19 


8797 

90 


8798 

32,8C,5C 


8801 

FD,CB,02,86 


8305 

CD,14,09 


8808 

C3,A9,08 


INPUT SEQUENCE SUBROUTINE 

8811 

CD,ED,21 

INPUT SEQ 

8S14 

28, FB 


8816 

FE, 28 


8818 

20, OE 


3320 

E7 


8821 

CD,7E,21 


3S24 

DF 


8325 

FE, 29 


8327 

C2,ED,IB 


8830 

E7 


8831 

C3,5C,23 


3834 

FE, CA 

TRY LINE 

8836 

20, 11 


8838 

E7 

DO LINE 

8339 

CD,82,IB 


8342 

FD,CB,37,FE 


8846 

FD,CB,01,76 


8850 

C2,ED,IB 


8853 

18, OD 


8855 

CD,4B,30 

IS IT ALPHA? 

8853 

02,59,23 


8861 

CD,82,IB 


8864 

FD,CB,37,BE 


8868 

CD,89,28 

IN PROMPT 

8871 

CA,5C,23 


8874 

CD,4E,13 


8377 

21,71,5C 


8880 

CB, BC 


8882 

CB, EE 


8884 

01 , 01,00 



SET O, A UPPER SCREEN 
LD. (23750) , A RETURN FLAG 
CALL 10377 INTERPRET? 

JR Z, S (8767) SKIP IF SYNTAX 

LD A, 1 OPEN CHAN K 

CALL 4656 SELECT CHAN 

CALL 2217 CL-LHS 

LD (IY+2), 1 USE LOWER SCREEN 

CALL 8811 INPUT SEQUENCE 

CALL 6980 END? 

LD BC, (23688) S-POSN 
LD A, (23659) DF-SiZe 
CP B 

JR C, 3 (8791) RESET S-POSN 
LD C, 33 
LD B, A 

LD (23688), BC S-POSN 
LD A, 25 
SUB B 

LD (23692), A SCROLL COUNT 
RES 0, (IY+2) USE UPPER SCREEN 

CALL 2324 STORE CUR POSN 
JP 2217 C-LHS 


CALL 8685 PRINT SPACING 
JR Z, 251 (8811) INPUT SEQ 

CP 40 (? 

JR NZ, 14 (8834) TRY LINE 

RST 32 NEXT CHAR 
CALL 8574 PRINT SEQUENCE 
RST 24 GET CHAR 
CP 41 )? 

JR NZ, 7149 SYN ERR 
RST 32 NEXT CHAR 
JP 9052 INPUT SEQ END 
CP 202 LINE? 

JR NZ, 17 (8S55) IS IT ALPHA? 

RST 32 NEXT CHAR 

CALL 7042 CLASS 1 

SET 7, (IY+55) LINE INPUT 

BIT 6, (IY+l) STRING? 

JP NZ, 7149 SYN ERR 
JR 13 (3868) IN PROMPT 
CALL 12362 APHA? 

JP NC, 9049 INPUT SEQ REPEAT 
CALL 7042 CLASS 1 
RES 7, (IY+55) LINE INPUT OFF 

CALL 10377 INTERPRET? 

JP Z, 9052 INPUT SEQ END 
CALL 4942 SET WORKSPACE 
LD HL, 23665 AT FLAGS X 
RES 6, (HL) STRING ON 
SET 5, (HL) INPUT ON 
LD BC, 1 





89 


8387 

CB, 7E 

838? 

20 „ OB 

3391 

3 A,38,58 

3894 

EE6, 40 

8396 

20,02 

8393 

OE, 03 

8900 

B6 

8901 

77 

8902 

F7 

8903 

36, OD 

8905 

79 

8906 

OF 

8907 

OF 

8908 

30, 05 

8910 

3E, 22 

8912 

12 

8913 

2B 

8914 

77 

8915 

22,5B,5C 

8918 

FD,CB,37,7E 

QQ99 

20,2C 

8924 

2A,5D,5C 

8927 

E5 

8928 

2A,3D,5C 

8931 

E5 

OOTO 

V...' •_« 

21,E4,22 

8935 

E5 

8936 

FD,CB,30,66 

8940 

28,04 

8942 

ED,73,3D,5C 

8946 

2A,61,5C 

8949 

CD,OD,OD 

8952 

FD,36,00,FF 

8956 

CD,82,OA 

8959 

FD,CB,01,BE 

8963 

CD,63,23 

8966 

18,03 

8968 

CD,82,OA 

8971 

FD,36,22,00 

8975 

CD,80,23' 

8978 

20, OA 

8980 

CD,83,OC 

8983 

ED,4B,82,5C 

8987 

CD,14,09 

8990 

21,71,5C 

8993 

CB, AE 

8995 

CB, 7E 

8997 

CB, BE 

8999 

20, 1C 

9001 

El 

9002 

El 

9003 

22,3D,5C 

9006 

El 

9007 

22,5F,5C 

9010 

FD,CB,01,FE 


SET # ON 
MAKE ROOM 


ONE SPACE 


INPUT VAR-1 


INPUT VAR-2 


INPUT VAR-3 
INPUT VAR-4 


SKIP ECHO 


BIT 7, (HL) LINE INPUT? 

JR NZ, 11 18902) MAKE ROOM 

LD A, (23611) FLAGS 

AND 64 SAVE BIT 6 (# ON?) 

JR NZ, 2 (8900) SET # ON 

LD C, 3 NEED 3 SPACES 

OR (HL) ADD FLAG X 

LD (HL), A RESTORE FLAG X 

RST 48 MAKE BC SPACES 

LD (HL) , 13 ENTER 

LD A, C 

RRC A 


RRC A TEST BIT 1 

JR NC, 5 (8915) ONE SPACE 

LD A, 34 " 

LD (DE), A 
DEC HL 
LD (HL), A 

LD (23643) , HL K CUR- 
BIT 7, (IY+55) # ON? 

JR NZ, 44 (8968) IN VAR-3 
LD HL, (23645) CHAR ADDR 
PUSH HL SAVE CHAR ADDR 
LD HL, (23613) ERR SP 
PUSH HL SAVE ERR SP¬ 
ED HL, 8932 INPUT VAR-1 
PUSH HL RET IF ERROR 
BIT 4, (IY+43) RETYPE IF ERROR? 

JR Z, 4 (8946) IN VAR-2 
LD (23613), SP ERR SP 
LD HL, (23649) WORKSPACE 
CALL 3341 DESLUG 
LD (IY+O), 255 RESET ERR # 

CALL 2690 EDIT CUR 

RES 7, (IU+1) INTERRUPT OFF? 

CALL 9059 INPUT ASSIGN 

JR 3 (8971) INPUT VAR-4 

CALL 2690 EDIT CUR 


LD (IY+34), O RESET CUR HI ADDR 
CALL 9088 NOT K CHAN? 


JR NZ, 
CALL 3 
LD BC, 
CALL 2 
LD HL, 
RES 5, 
BIT 7, 
RES 7, 
JR NZ, 
POP HL 
POP HL 


10 (8990) SKIP ECHO 
203 ECHO 
(23682) ECHO E 
324 STORE CUR 
23665 AT FLAGS X 
(HL) PROG LINE ON 
(HL) INTERRUPT? 

(HL) SYNTAX ON 
28 (9029) ENTER INPUT 
DISCARD ERR RET ADDR 


LD (23613), HL RESET SP 
POP HL 

LD (23647), HL X POINTER 
SET 7, (IY+1) INTERRUPT ON 






90 


9014 

CD,63,23 


9017 

2A,5F,5C 


9020 

FD,36,26, 

00 

9024 

22,5D,5C 


9027 

18, 17 


9029 

2A,63,5C 

ENTER INPUT 

9032 

ED,5B,61, 

5C 

9036 

37 


9037 

ED, 52 


9039 

44 


9040 

4D 


904 1 

CD,70,2E 


9044 

CD,BD,2E 


9047 

18,03 


9049 

CD,9B,21 

INPUT SEQ REPEAT 

9052 

CD,ED,21 

INPUT SEQ END 

9055 

CA,6B,22 


9058 

C9 



CALL 9059 CK INPUT TOKEN 

LD HL, (23647) X POINTER 

LD (IY+38), 0 HI BYTE X POINTER 

LD (23645), HL CHAR ADDR 

JR 23 (9052) INPUT SEQ END 

LD HL, (23651) STK BOTTOM 

LD DE, (23649) WORK SPACE 

SCF 

SBC HL, DE FIND LENGTH 
LD B, H 

LD C, L LENGTH TO BC 

CALL 11888 GET STRING PARAMETER! 

CALL 11965 LET 

JR 3 (9052) INPUT SEQ END 

CALL 8603 PRINT ITEMS 

CALL 8685 PRINT SPACING 

JP Z, 8811 INPUT SEQUENCE 

RET 


INPUT ASSIGNMENT SUBROUTINE 
9059 2A,61,5c INPUT ASSIGN 
9062 22,5D,5C 

9065 DF 

9066 FE,E2 
9068 28,OC 
9070 3A,71,5C 
9073 CD,BC,IB 

9076 DF 

9077 FE,OD 

9079 C8 

9080 CF ERR C 

9081 OB 

9082 CD,89,28 INPUT STOP 

9085 C8 

9086 CF ERR H 

9087 10 


LD HL, (23649) WORK SPACE 
LD (23645), HL CHAR ADDR 
RST 24 GET CHAR 
CP 226 STOP? 

JR Z, 12 (9082) INPUT STOP 
LD A, (23655) FLAGS X 
CALL 7100 LT22(GET A VALUE-1) 
RST 24 GET CHAR 
CP 13 ENTER? 

RET Z 

RST 8 ERROR 
C Nonsense in BASIC 
CALL 10377 INTERPRET? 

RET Z 

RST 8 ERROR 
H STOP in INPUT 


INPUT CHANNEL K SUBROUTINE 
9088 2A,51,5C NOT KB?(NOT K 

9091 23 

9092 23 

9093 23 

9094 23 

9095 7E 

9096 FE,4B 
9098 C9 


CHAN?) 

LD 

HL, 

(23633) CUR CHAN 

INC 

HL 



INC 

HL 


t 

INC 

HL 


j 

INC 

HL 



LD A, 

(HL) 


CP 75 

K? 


RET 





COLOR ITEM ROUTINES 

9099 E7 READ NEXT COLOR CHAR 

9100 CD,9C,23 GR COLOR 

9103 D8 

9104 DF 

9105 FE,2C 
9107 28,F6 
9109 FE,3B 


RST 32 NEXT CHAR 

CALL 9116 CK TEMP COLOR TOKENS 

RET C 

RST 24 GET CHAR 
CP 44 ","? 

JR Z, 246 (9099) READ NXT COL CH 
CP 59 ;? 




9111 

8 , F2 

9113 

C3, ED 

9116 

FE,D9 

9118 

D8 

9119 

FE,DF 

9121 

3F 

9122 

D8 

9123 

F5 

9124 

E 7 

9125 

FI 

9126 

06,89 

9128 

F5 

9129 

CD,E5 

9132 

FI 

9133 

A 7 

9134 

CD,4F, 

9137 

F5 

9138 

CD,IE, 

9141 

57 

9142 

FI 

9143 

D7 

9144 

7 A 

9145 

D7 

9146 

C9 

COLOR CHANC 

9147 

D6, 11 

9149 

CE, 00 

9151 

28, ID 

9153 

D6,02 

9155 

CE, 00 

9157 

28,56 

9159 

FE, 01 

9161 

7 A 

9162 

06,01 

9164 

20,04 

9166 

07 

9167 

07 

9168 

06, 04 

9170 

4F 

9171 

7A 

9172 

FE, 02 

9174 

30, 16 

9176 

79 

9177 

21,91, 

9180 

18,38 

9182 

7A 

9183 

06, 07 

9185 

38,05 

9187 

07 

9188 

07 

9189 

07 

9190 

06,38 

9192 

4F 

9193 

7A 


, IB 

CK TEMP 


CHANGE TOKEN TO CON 


SINGLE 


JR Z, 242 (9099) READ NXT COL CH 
JP 7149 SYN ERR 
COLOR TOKEN CP 217 INK? 

RET C 

CP 223 OUT? 

CCF 
RET C 

PUSH AF SAVE TOKEN 
RST 32 NEXT CHAR 

POP AF GET TOKEN BACK 

'OKEN TO CON SUB 201 CONVERT TO CONTROL # 

PUSH AF SAVE CONTROL # 

CALL 7141 TEN 6(EXPECT 1#) 

POP AF GET CONTROL # BACK 

AND A CLEAR FLAGS 

CALL 8527 UNSTACK Z 
PUSH AF 

CALL 7966 FIX-U1(FIND SINGLE 
LD D, A 

POP AF CONTROL # BACK 
RST 16 PRINT CHAR 
LD A, D 

RST 16 PRINT CHAR (#) 

RET 


TV COLOR SUB 17 

ADC A, O 

JR Z, 29 (9182) COLOR 
SUB A, 2 
ADC A, 0 

JR Z, S6 (9245) HIFLASH 
CP 1 
LD A, D 

LD B, 1 MASK FOR OVER 
JR NZ, 4 (9170) OVER/INVERSE 
RLC A 

RLC A X4 

LD B, 4 MASK FOR INVERSE 
OVER/INVERSE LD C, A 

LD A, D 

CP 2 ONLY 1 OR 0 ALLOWED 
JR NC, 22 (9198) ERR E 

LD A, C 

LD HL, 23697 AT P FLAGS 
JR 56 (9238) TV COLOR CHANGE 
COLOR LD A, D 

LD B, 7 WHITE 

JR C, 5 (9192) SKIP DEFAULTS 
RLC A 
RLC A 

RLC A X 8 
LD B, 56 
LD C, A 
LD A, D 


(9245) HIFLASH 


MASK FOR OVER 
(9170) OVER/INVERSE 


MASK FOR INVERSE 


ONLY 1 OR 0 ALLOWED 
22 (9198) ERR E 


DEFAULT 
SKIP DEFAULT 
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CP 10 

JR C, 2 (9200) SKIP ERROR 
RST 8 ERROR 
K Invalid color 
LD HL, 23695 AT ATTR T 
CP 8 

JR C, 11 (9218) COLOR T-A 

LD A, (HL) 

JR Z, 7 (9217) COLOR T-B 

OR B 

CPL 

AND 36 

JR Z, 1 (9217) COLOR T-A 

LD A, B 
LD C, A 
LD A, C 

CALL 9238 TV COLOR CHANGE 
LD A, 7 
CP D 

SBC A, A 

CALL 9238 TV COLOR CHANGE 
RLC A 
RLC A X4 

AND 80 SAVE BITS 4 Z< 6 
LD B, A 
LD A, 8 
CP D 

SBC A, A 
E XOR (HL) 

AND B 
XOR (HL) 

LD (HL), A 
INC HL 
LD A, B 
RET 


9194 

FE, OA 


9196 

38, 02 


9198 

CF 

ERR K 

9199 

13 


9200 

21,8F,5C 

SKIP ERROR 

9203 

FE, 08 


9205 

38, OB 

COLOR 9 

9207 

7E 


9208 

28,07 


9210 

BO 


921 1 

2F 


9212 

E6,24 


9214 

28,01 


9216 

78 


9217 

4F 

COLOR T-A 

9218 

79 

COLOR T-B 

9219 

CD,16,24 


Q 

3E, 07 


9224 

BA 


9225 

9F 


9226 

CD,16,24 


9229 

07 


9230 

07 


9231 

E6, 50 


9233 

47 


9234 

3E, 08 


9236 

BA 


9237 

9F 


9238 

AE TV 

COLOR CHANG; 

9239 

AO 


9240 

AE 


9241 

77 


9242 



9243 

78 


9244 

C9 


BRIGHT AND FLASH 

SUBROUTINES 

9245 

9F 

HIFLASH 

9246 

7A 


9247 

OF 


9248 

06, 80 


9250 

20 , 03 


9252 

of' 


9253 

06,40 


9255 

4F 

SKIP BRIGHT 

9256 

7A 


9257 

FE, 08 


9259 

28,04 


9261 

FE, 02 


9263 

30, BD 

ERR K 

9265 

79 

SKIP ERROR 

9266 

21,8F,5C 


9269 

CD,16,24 


9272 

79 


9273 

OF 



SBC A, A 
LD A, D 
RRC A 

LD B, 128 SET FLASH 
JR NZ, 3 (9255) SKIP BRIGHT 
RRC A 

LD B, 64 SET BRIGHT 
LD C, A 
LD A, D 
CP 8 

JR Z, 4 (9265) SKIP ERROR 
CP 2 ONLY 1 OR O ALLOWED 
JR NC, 189 (9198) ERR K 
LD A, C 

LD HL, 23695 AT ATTR T 
CALL 9238 TV COLOR CHANGE 
LD A, C 
RRC A 
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9274 OF 

9275 OF 

9276 18,DS 


RRC A 

RRC A DIVIDE BY 8 

JR 216 (9238) TV COLOR CHANGE 


BORDER COMMAND ROUTINE 
9278 CD,IE,IF BORDER 

9281 FE,08 
9283 30,A9 
9285 D3,FE 

9287 07 

9288 07 

9289 07 


9290 CB,6F 
9292 20,02 
9294 EE,07 

9296 32,48,5C SET BORDER 
9299 C9 


CALL 7955 FIX-U1(FIND SINGLE INT) 
CP 8 

JR NC, 169 (9198) ERR K 
OUT (254), A 
RRC A 
RRC A 

RRC A DIVIDE BY 8 
BIT 5, A 

JR NZ, 2 (9296) SET BORDER 

XOR 7 

LD (23624), A BORDER 
RET 


RESET COMMAND 

9300 DF 

9301 FE,2A 
9303 20,26 
9305 CD,20,00 
9308 CD,44,18 

9311 C9 

9312 3E,10 
9314 21,16,5C 
9317 CD,AS,13 

9320 23 

9321 23 

9322 3D 

9323 20,FS 
9325 21,F4,09 

9328 E5 

9329 06,FE 
9331 DE,88 

9333 C5 

9334 01,00,00 

9337 C5 

9338 C5 

9339 CD,DO,65 

9342 C9 

9343 FE,23 
9345 28,15 
9347 CD,44,IB 

9350 C9 

9351 21,4C,OC 

9354 E5 

9355 01,FE,FE 

9358 C5 

9359 01,00,00 

9362 C5 

9363 C5 

9364 CD,DO,65 
9367 C9 


ROUTINE 

RESET 

RESET STREAMS 
DO STREAMS 

RESET CHANNELS 

CALL EROM 

CK 

RESET MODE 


RST 24 GET CHAR 
CP 42 *? 

JR NZ, 38 (9343) CK 
CALL 32 NEXT CHAR 
CALL 6980 END? 

RET 

LD A, 16 

LD HL, 23574 AT STREAMS POSN 5 

CALL 5032 RST STREAM 

INC HL NEXT STREAM 

INC HL 

DEC A 

JR NZ, 248 (9317) DO STREAMS 
LD HL, 2548 CHANNEL DATA 
PUSH HL 

LD B, 254 SETUP CALL BANK 

LD C, 136 

PUSH BC 

LD BC, 0 

PUSH BC 

PUSH BC 

CALL 26064 CALL BANK 
RET 

CP 35 #? 

JR Z, 21 (9368) GET PARAMETERS 

CALL 6980 END? 

RET 

LD HL, 3148 KEY MODE 
PUSH HL A RETURN 

LD BC, FEFE(HEX) SETUP CALL BANK 

PUSH BC 

LD BC, O 

PUSH BC 

PUSH BC 

CALL 26064 CALL BANK 
RET 
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RESET PARAMETERS 


9368 

E7 

9369 

CD,E5,IB 

9372 

CD,44,IB 

9375 

CD,IE,IF 

9378 

FE, 11 

9380 

30, 11 

9382 

A7 

9TO;7 

FA,B7,24 

9386 

87 

9387 

C6, 16 

9389 

6F 

9390 

26,5C 

9392 

5E 

9393 

-r ?“r 

9394 

56 

9395 

7A 

9396 

B3 

9397 

20,02 

9399 

CF 

9400 

17 

9401 

7A 

9402 

FE , SO 

9404 

DS 

9405 

C3,67,25 

9408 

D6, 80 

9410 

57’ 

941 1 

ED,5B,BC, 

9415 

19 

9416 

OT 

9417 

46 

9418 

16, 00 

9420 

IE, 12 

9422 

19 

9423 

E5 

9424 

18, A1 


SUBROUTINE 
GET PARAM 


ERR 0 
SKIP ERR 


CART RESET 


RST 32 NEXT CHAR 

CALL 7141 TEM 6(EXPECT 1#) 

CALL 6980 END? 

CALL 7966 FIX-U1(FIND SINGLE INT 
CP 17 (ONLY 16 STREAMS) 

JR NC, 17 (9399) ERR O 
AND A CLEAR FLAGS 
JP N, 9399 ERR 0 
AND A, A 
ADD A, 22 
LD L, A 

LD H, 92 AT STREAM DATA 
LD E (HL) 

INC HL 
LD D, (HL) 

LD A, D 

OR E DE=0? 

JR NZ, 2 (9401) SKIP ERROR 

RST 8 ERROR 

O Invalid stream 

LD A, D 

CP 123 

RET C 

JP 9575 ERR J 
SUB 128 
LD D, A 

LD DE, (23740) SYS CONF TABLE ADD 
ADD HL, DE 
INC HL 
LD B, (HL) 

LD D, O 
LD E, 18 
ADD HL, DE 
PUSH HL 

JR 161 (9331) CALL EROM 


NEW DEVICE ROUTINE 


9426 

DF 



9427 

FE, 

2A 


9429 

C2, 

47, 

•r->cr 

9432 

E7 



9433 

CD, 

EF, 

IB 

9436 

FE, 

2C 


9438 

C2, 

ED, 

IB 

9441 

CD, 

89, 

28 

9444 

20, 

06 


9446 

CD, 

69, 

25 

9449 

CD, 

44, 

IB 

9452 

18, 

79 


9454 

CD, 

AF, 

2F 

9457 

OB 



9458 

78 



9459 

B1 




NEW DEV 


CALL ERROR J 


RST 24 GET CHAR 

CP 42 *? i 

JP NZ, 9543 SAVE/LOAD/VERIFY/MERG 

RST 32 NEXT CHAR 

CALL 7151 TEM 10 

CP 44 ","? 

JP N, 7149 SYN ERR 
CALL 10377 INTERPRET? 

JR NZ, 6 (9452) CALL ERR J 
CALL 9577 SKIP IT 
CALL 6980 END? 

JR 121 (9575) ERR J 

CALL 12207 GET STRING PARAM 

DEC BC 

LD A, B 

OR C BC=0? 



9460 20,17 

9462 1A' 

9463 E6,DF 

9465 4F 

9466 CD,74,13 
9469 02,67,25 

9472 E5 

9473 11,14,00 

9476 19 

9477 7E 

9479 CB,4F 

9480 CA,67,25 
9493 El 

9484 EB 

9485 CD,B9,25 

9488 EB 

9489 3A,74,5C 

9492 A7 

9493 FE,00 
9495 38,26 
9497 28,28 
9499 C6,D4 

^5 ( ->l 4F CALL EROM 

9502 C5 

9503 56 

9504 IE,SS 
9506 01,OC,00 

9509 09 

9510 4E 

9511 23 

9512 46 

9513 C5 

9514 D5 

9515 2A,65,5C 

9518 2B 

9519 4E 

9520 OC 

9521 22,65,5C 
9524 06,00 

9526 C5 

9527 01,00,00 

9530 C5 

9531 CD,DO,65 

9534 C9 

9535 OE,F8 NEW DEV SAVE 

9537 IS,DB 

9539 OE,EF 
9541 18,DF 

SAVE-LOAD-VERIFY-MERGE ROUTINE 

9543 FI SLVM 

9544 O1,AB,01 

9547 C5 

9548 01,FE,FE 
9551 C5 


JR NZ, 113 (9575) ERR J 
LD A, (DE) 

AND 223 
LD C, A 

CALL 4980 SEARCH CART SYS CONF 

JP NC, 9575 ERR J 

PUSH HL 

LD DE, 20 

ADD HL, DE 

LD A, (HL) 

BIT 1, A 

JP Z, 9575 ERR J 
POP HL 
EX DE, HL 
CALL 9657 PASS EM 
EX DE, HL 

LD A, (23663) S-POSN 
AND A CLEAR FALGS 
CP 0 

JR C, 38 (9535) SAVE 
JR Z, 40 (9539) LOAD 
ADD A, 212 FOR VARIABLE 
LD C, A 
PUSH BC 
LD D, (HL) 

LD E, 136 

LD BC, 12 NEED 12 SPACES 

ADD HL, BC 
LD C, (HL) 

INC HL 
LD B, (HL) 

PUSH BC 
PUSH DE 

LD HL, (23653) STK END 
DEC HL 
LD C, (HL) 

INC C 

LD (23653), HL STK END 

LD B, O 

PUSH BC 

LD BC, 0 

PUSH BC 

CALL 26064 CALL BANK 
RET 

LD C, 248 SAVE 

JR 219 (9501) CALL EROM 

LD C, 239 LOAD 

JR 215 (9501) CALL EROM 


POP AF 

LD BC 427 SLVM ADDR EROM 
PUSH BC 
LD BC, 254/254 
PUSH BC 



9 6 


ncrcn 
V UUxL 

01,00 , 00 


9555 

cs' 


9556 

C5 


9557 

3A,C2,5C 


9560 

A7 


9561 

20 , 07 


9563 

CD,DO,65 


9566 

CD,44,IB 

CK END 

9569 

C? 


VIDEO.2 SCREEN 

SURGUTINE 

9570 

CD,90,FD 

2 SCREEN MODE 

9573 

18, F7 


9575 

CF 

ERR J 

9576 

12 


CARTRIDGE SKIP 

ROUTINE 

9577 

3A,C6,5C 

SKIP I 

9530 

CB, 8F 


9582 

32,C6,5C 


9585 

C5 


9586 

DF 


9587 

FE, 22 

FIND END 

9589 

28, OB 


9591 

FE, 3A 


9593 

28,07 


9595 

FE, OD 


9597 

23, 03 


9599 

E7 


9600 

18,FI 


9602 

FE, 3A 

END FOUND 

9604 

20,07 


9606 

3A,C6,5C 


9609 

CB, 4F 


9611 

20,29 


9613 

E5 

IS IT #? 

9614 

06 , 05 


9616 

2B 

FIND SLUG 

9617 

7E 


9618 

FE, OE 


9620 

23, IF 


9622 

10, FS 


9624 

El 


9625 

DF 


9626 

FE, 22 


9628 

20, 15 


9630 

3A,C6,5C 


9633 

CB, 4F 


9635 

20,07 


9637 

CB, 4F 


9639 

32,C6,5C 


9642 

18, OA 


9644 

CB, 8F 

SCREEN OFF 

9646 

32,C6,5C 


9649 

18,03 



LD BC ,O 
PUSH BC 
PUSH BC 

LD A, (23746) VID MODE 
AND A CLEAR FLAGS 
JR NZ, 7 (9570) 2 SCREEN MODE 
CALL 26064 CALL BANK (LOW) 
CALL 6980 END? 

RET 


CALL 64912 CALL BANK (HIGH) 
JR 247 (9566) CK END 
RST 8 ERROR 
J Invalid I/O device 


LD A, (23750) CART FLAGS 
RES 1, A USE TOP SCREEN 
LD (23750) RESTORE FLAGS 
PUSH BC 

RST 24 GET CHAR 
CP 34 "? 

JR Z, 11 (9602) END FOUND 

CP 58 :? 

JR Z, 7 (9602) END FOUND 
CP 13 ENTER? 

JR Z, 3 (9602) END FOUND 
RST 24 GET CHAR 
JR 241 (9587) FIND END 

CP 58 :? 

JR NZ, 7 (9613) IS IT #? 

LD A, (23750) CART FLAGS 
BIT 1, A TOP SCREEN? 

JR NZ, 41 (9654) GET NEXT CHAR 

PUSH HL 

LD B, 5 NEED 5 SPACES FOR SLUG 
DEC HL 
LD A, (HL) 

CP 14 SLUG? 

JR Z, 31 (9653) CONTINUE WITH # 

JR NZ, 248 (9616) FIND SLUG 
POP HL 

RST 24 GET CHAR 
CP 34 "? 

JR NZ, 21 (9651) NEXT LINE 

LD A, (23750) CART FLAGS 
BIT 1, A UPPER SCREEN? 

JR NZ, 7 (9644) SCREEN OFF 
SET 1, A UPPER SCREEN ON 
LD (23750), A RETURN CART FLAG 
JR 10 (9653) CONTINUE WITH # 

RES 1, A USE LOWER SCREEN 
LD (23750), A RETURN CART FLAGS 
JR 3 (9654) GET NEXT CHAR 
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9651 Cl NEXT LINE 

9652 C9 

9653 El CONTINE WITH # 

9654 E7 GET NEXT CHAR- 

9655 18, BA 


PDF' BC 
RET 

POP HL 

RST 24 GET CHAR 
JR 186 (9587) FIND END 


PASS TO BANK 254 
9657 01, FE,FE 
9660 CD,99,64 
9663 CD,09,OF 
LD (BC) , A AND 
FROM 3849 DOESN' 
9666 01,00,FF 
9669 CD,99,64 


ROUTINE 
PASS EM 


LD BC, 254/254 
CALL 25753 BANK ENABLE 
CALL 3349 77ERR0R?? RESULTS IN 

ROUTINE. SHOULD BE CALL 3845^ 

T MAKE SENSE EITHER - 

LD B, BANK 255, C= O 
CALL 25753 BANK ENABLE 


REST OF REPORT 


ENTRY POINT FOR CAT 
9672 06,CF CAT 

9674 18,0A 

ENTRY POINT FOR FORMAT 
9676 06,DO FORMAT 

9678 18,06 

ENTRY POINT FOR MOVE 
9680 06,D1 MOVE 

9682 18,02 


LD B, 207 CAT 

JR 10 (9686) CK SYNTAX 


LD B, 203 FORMAT 
JR 6 (9686) CK SYNTAX 


L-D B, 209 MOVE 

JR 2 (9686) CK SYNTAX 


ENTRY POINT FOR ERASE 
9684 06,D2 ERASE 

9686 CD,89,23 CK SYNTAX 

9689 20,06 
9691 CD,69,25 
9694 CD,44,IB 

9697 C3,67,25 ERR J 


LD B, 210 ERASE 
CALL 10377 INTERPRET? 
JR NZ, 6 (9697) ERR J 
CALL 9577 SKIP IT 
CALL 6980 END? 

JP 9575 ERR J 


GARBAGE -THIS 
9700 01,0C,00 

9703 09 

9704 4E 

9705 23 

9706 46 

9707 C5 

9708 D5 

9709 2A,65,5C 

9712 2B 

9713 4E 

9714 OC 

9715 22,65,5C 
9718 06,00 

9720 C5 

9721 01,00,00 

9724 C5 

9725 CD,DO,65 

9728 C9 

9729 CF 


IS THE SAME ROUTINE AS AT 9506. 

LD BC, 12 


IT IS NEVER USED. 


ERR J 


ADD HL, BC 
LD C, (HL) 

INC HL 
LD B, (HL) 

PUSH BC 
PUSH DE 

LD HL, (23653) STK END 
DEC HL 
LD C, (HL) 

INC C 

LD (23653), HL STK END 

LD B, O 

PUSH BC 

LD BC, O 

PUSH BC 

CALL 26064 CALL BANK 
RET 

RST 8 ERROR 
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9730 12 


J Invalid I/O device 


PIXEL ADDRESS SUBROUTINE (FOR PLOT AND POINT) 


9731 3E,AF SCRAMBLE (GET PIXEL 

9733 90 DO Y 

9734 DA,52,23 
9737 47 

9733 A7 
9739 IF 


ADDR) LD A, 

SUB B 

JP C, 10322 ERR B 
LD B, A B=175 - Y 
AND A CLEAR FLAGS 
RR A 


5 Y MAX (BC=COQRD> 


9740 37 

9741 IF 

9742 A7 

9743 IF 

9744 A3 

9745 E6,F8 
9747 A3 


SCF 
RR A 

AND A CLEAR FLAGS 
RR A 
XOR B 

AND 248 CLEAR 3 LOW BITS 
XOR B 


9748 

67 

9749 

79 

9750 

07 

9751 

07 

9752 

07 

9753 

A8 

9754 

E6..C7 

9756 

A8 

9757 

07 

9758 

07 

9759 

6F 

9760 

79 

9761 

E6,07 

9763 

C9 


LD H, A 
DO X LD A, C 

RLC A ROTATE BACK 3 
RLC A 
RLC A 
XOR B 

AND 199 CLEAR 3,4 & 5 BIT 

XOR A 

RLC A 

RLC A 

LD L, A 

LD A, C 

AND 7 CLEAR 3 LOW BITS 
RET 


POINT SUBROUTINE 



9764 

CD,60,26 

FIND 

POINT 

9767 

CD,03,26 



9770 

47 



9771 

04 



9772 

7E 



9773 

07 

POINT 

LOOP 

9774 

10, FD 



9776 

E6,01 



9778 

C3,E6,30 



PLOT 

COMMAND ROUTINE 


9781 

CD,60,26 


PLOT 

9784 

CD,3E,26 



9787 

C3,88,OS 



9790 

ED,43,7D,5C 

PLOT BC 

9794 

CD,03,26 



9797 

47 



9798 

04 



9799 

3E,FE 



9801 

OF 

PLOT 

LOOP 

9802 

10, FD 



9804 

47 



9805 

7E 




CALL 9824 GET X,Y 
CALL 9731 SCRAMBLE 
LD B, A 
INC B 

LD A, (HL) 

RLC A 

DJNZ, 253 (9774) POINT LOOP 
AND 1 CLEAR BIT 1 
JP 12518 STK A . ' 


CALL 9824 GET X,Y 

CALL 9790 PLOT BC 

JP 2184 R ATTR TEMP 

LD (23677), BC COORDINATES 

CALL 9731 SCRAMBLE 

LD B, A 

INC B 

LD A, 254 

RRC A 

DJNZ, 253 (9801) PLOT LOOP 
LD B, A 
LD A, (HL) 
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9806 FD,4E,57 
9809 CB,41 
9811 20,01 
9813 AO 

9314 CB,51 TEST INVERSE 

9816 AS 

9818 A8 

9819 2F 

9820 77 PLOT END 

9821 03,10,07 

STACK TO BC SUBROUTINE 
9824 CD,6D,26 GET X,T(STK TO 
9S27 47 

9828 C5 

9829 CD,6D,26 

9832 59 

9833 Cl 

9834 51 
9335 4F 

9836 C8 

STACK TO A SUBROUTINE 

9837 CD,93,31 GET COORDINATES 

9840 DA,52,28 (STK TO A) 

9843 OE,03 

9345 C3 
9846 OE,FF 
9848 C9 


LD C, (IY+87) p FLAG 
BIT 0, C OVER ON? 

JR NZ, 1 (9814) TEST INVERSE 

AND B 

BIT 2, C INVERSE ON? 

JR NZ, 2 (9820) PLOT END 

XOR B 

CPL 

LD (HL) , A 
JP 1808 ATTR BYTE 


BC) CALL 9837 GET COORDIN(STK TO A) 
LD B, A 
PUSH BC 

CALL 9837 GET COORDINATES(STK TO 
LD E, C A) 

POP BC 
LD D, C 
LD C, A 

RET B=Y,D=Y SIGN;C=X,E=X SIGN 


CALL 12691 FP TO A 

JP C, 10322 ERR B 

LD C, 1 

RET Z 

t_D C, 255 

RET 


CIRCLE COMMAND ROUTINE 

CIRCLE 


9849 

DF 


9850 

FE,2C 


9852 

C2,ED, 

IB 

9855 

E7 


9856 

CD,E5, 

IB 

9859 

CD,44, 

IB 

9862 

EF 


9863 

2A 


9864 

3D 


9365 

38 


9366 

7E 


9867 

FE, 81 


9869 

30,05 


9871 

EF 


9872 

02 


9873 

38 


9874 

IS, A1 


9876 

EF 


9877 

A3 


9878 

38 


9879 

36,83 


9881 

EF 


9882 

C5 


9883 

02 



R>1 


RST 24 GET CHAR 
CP 44 ","? 

JP NZ, 7149 SYN ERR 
RST 32 NEXT CHAR 
CALL 7146 TEM (EXPECT 1 #) 
CALL 6980 END? 

RST 40 FP CALC 
ABS 

E TO FP 
END FP 
LD A, (HL) 

CP 129 RADIUS <1? 

JR NC, 5 (9876) R>1 
RST 40 FP CALC 
DELETE 
END FP 

JR 161 (9781) PLOT 

RST 40 FP CALC 
STK PI/2 
END FP 

LD (HL), 131 (PI/2 TO 2*PI) 

RST 40 FP CALC 
STK TO MEM 5 
DELETE 
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9834 

33 

9885 

CD,D6,27 

9388 

C5 

9389 

EF 

9890 

31 

9891 

El 

9892 

04 

9893 

38 

9894 

7E 

9895 

FE, 80 

9897 

30,03 

9899 

EF 

9900 

02 

9801 

02 

9902 

7 0 

•_* <LJ 

9903 

Cl 

9804 

C3,35,26 

9907 

EF 

9908 

C2 

9909 

01 

9910 

CO 

9911 

02 

9912 

03 

9913 

01 

9914 

EO 

9915 

OF 

9916 

CO 

9917 

01 

9918 

31 

8919 

EO 

9920 

01 

9921 

31 


EO 

9923 

AO 

9824 

Cl 

8925 

02 

9926 

33 

8927 

FD,34,62 

9930 

CD,1E 5 IF 

9933 

6F 

9934 

E5 

8935 

CD,IE,IF 

9938 

El 

8939 

67 

9940 

22,7D,5C 

8943 

Cl 

9944 

C3,79,27 

DRAW 

COMMAND F 

9947 

DF 

9948 

FE, 2C 

9950 

28,06 

9952 

CD ? 44,IB 

9955 

C3,DO,27 

9958 

E7 


ARC >1 


DRAU 


GET ANGLE 


END FP 

CALL 10198 DRAW PARAMETER-1 

PUSH BC SAVE ARC COUNT 

RST 40 FP CALC 

DUPLICATE 

GET MEM 1 

MULTIPLY 

END FP 

LD A, (HL) 

CP 128 1/2? 

JR NC, 8 (9907) ARC >1 

RST 40 FP CALC 

DELETE 

DELETE 

END FP 

POP BC 

JP 9781 PLOT 

RST 40 FP CALC 

STK TO MEM 2 

EXCHANGE 

STK TO MEM 0 

DELETE 

SUBTRACT 

EXCHANGE 

GET MEM 0 

ADD 

STK TO MEM 0 
EXCHANGE 
DUPLICATE 
GET MEM O 
EXCHANGE 
DUPLICATE 
GET MEM 0 
STK 0 

STK TO MEM 0 

DELETE 

END FP 

INC (IY+98) MEM STK 2,P0SN O 
CALL 7966 FIX-U1(FIND’SINGLE INT) 
LD L, A 

PUSH HL SAVE X+Z 

CALL 7966 FIX-UMFIND SINGLE INT) 
POP HL 

l_D H, A H= Y-Z*SIN (PI/2) 

LD (23677), HL COORDINATES 
POP BC GET ARC COUNT 
JP 10105 DRAW STEPS 


RST 24 GET CHAR 
CP 'V ? 

JR Z, 6 (9958) GET ANGLE 
CALL 6980 END? 

JP 10192 LINE DRAW 
RST 32 NEXT CHAR 
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9959 CD,E5,IB 
9962 CD,44,IB 

9965 EF 

9966 C5 

9967 A2 

9968 OA 

9969 IF 

9970 31 

9971 30 

9972 30 

9973 00,06 

9975 02 

9976 38 

9977 C3,DO,27 

9980 CO 

9981 02 

9982 Cl 

9983 02 

9984 31 

9985 2A 

9986 El 

9987 01 

9988 El 

9989 2A 

9990 OF 

9991 EO 

9992 05 

9993 2A 

9994 EO 

9995 01 

9996 3D 

9997 38 

9998 7E 

9999 FE,81 
10001 30,07 

10003 EF 

10004 02 

10005 02 

10006 38 

10007 C3,DO,27 
10010 CD,D6,27 DRAW 

10013 C5 

10014 EF 

10015 02 

10016 El 

10017 01 

10018 05 

10019 Cl 

10020 02 
10021 01 

10022 31 

10023 El 

10024 04 

10025 C2 

10026 02 


CALL 7141 TEM 6 (EXPECT 1 #) 

.. CALL 6980 END? 

RST 40 FP CALC 
STK TO MEM 5 
STK 1/2 
MULTIPLY 
SIN 

DUPLICATE 

NOT 

NOT 

JUMP IF TRUE, 6 (9980) SIN <' >o 

DELETE 

END FP 

JP 10192 LINE DRAW 
SIN <> O STK TO MEM O 
DELETE 
STK TO MEM 1 
DELETE 
DUPLICATE 
ABS 

GET MEM 1 

EXCHANGE 

GET MEM 1 

ABS 

ADD 

GET MEM 1 

DIVIDE 

ABS 

GET MEM O 
EXCHANGE 
E TO FP 
END FP 
LD A, (HL> 

CP 129 Z>=1? 

JR NC, 7 (10010) DRAW PARAMETERS 

RST 40 FP CALC 

DELETE 

DELETE 

END FP 

JP 10192 LINE DRAW 

PARAMETERS CALL 10198 DRAW PARAMETERS 
PUSH BC SAVE ARC COUNT 
RST 40 FP CALC 
DELETE 
GET MEM 1 
EXCHANGE 
DIVIDE 
STK TO MEM 1 
DELETE 
EXCHANGE 
DUPLICATE 
GET MEM 1 
MULTIPLY 
STK TO MEM 2 
DELETE 


102 


10027 

01 

10028 

31 

10029 

El 

10030 

04 

1003 1 

E2 

10032 

E5 

10033 

EO 

10034 

03 

10035 

A 2 

10036 

04 

10037 

31 

10038 

IF 

10039 

C5 

10040 

02 

1004 1 

20 

10042 

CO 

10043 

02 

10044 

C2 

10045 

02 

10046 

Cl 

10047 

E5 

10048 

04 

10049 

EO 

10050 

E2 

10051 

04 

10052 

OF 

10053 

El 

10054 

01 

10055 

Cl 

10056 

02 

10057 

EO 

10058 

04 

10059 

E2 

10060 

E5 

10061 

04 

10062 

03 

10063 

C2 

10064 

2A 

10065 

El 

10066 

2A 

10067 

OF 

10068 

02 

10069 

38 

10070 

1A 

10071 

FE,31 

10073 

Cl 

10074 

DA ? DO,27 

10077 

C5 

10078 

EF 

10079 

01 

10080 

38 

10081 

3A,7D,5C 

10084 

CD,E6,30 

10087 

EF 

10088 

CO 


EXCHANGE 
DUPLICATE 
GET MEM 1 
MULTIPLY 
GET MEM 2 
GET MEM 5 
GET MEM O 
SUBTRACT 
STK 1/2 
MULTIPLY 
DUPLICATE 
SIN 

STK TO MEM 5 

DELETE 

COS 

STK TO MEM 0 
DELETE 

STK TO MEM 2 
DELETE 

STK TO MEM 1 
GET MEM 5 
MULTIPLY 
GET MEM 0 
GET MEM 2 
MULTIPLY 
ADD 

GET MEM 1 
EXCHANGE 
STK TO MEM 1 
DELETE 
GET MEM 0 
MULTIPLY 
GET MEM 2 
GET MEM 5 
MULTIPLY 
SUBTRACT 
STK TO MEM 2 
ABS 

GET MEM 1 
ABS 

ADD . i 

DELETE 

END FP 

LD A, (DE) 

CP 129 <1? 

POP BC 

JP C, 10192 LINE DRAW 
PUSH BC 

RST 40 FP CALC 

EXCHANGE 

END FP 

LD A, (23677) X COORDINATE 
CALL 125IS STK A 
RST 40 FP CALC 
STK TO MEM 0 
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10089 

OF 


10090 

01 

_ 

10091 

38 


10092 

3A,7E,5C 


10095 

CD ,E6,30 


10098 

EF 


10099 

C5 


10100 

OF 


101 OE- 

E5 


IO 103 

38 


10104 

Cl 


10105 

05 

DRAW STEPS 

10106 

28.3C 


10108 

IS, 14 


10110 

EF 

RECALC X,Y 

10111 

El 


10112 

31 


10113 

E3 


10114 

04 


10115 

E2 


10116 

E4 


10117 

04 


10118 

03 


10119 

Cl 


10120 

02 


10121 

E4 


10122 

04 


10123 

E2 


10124 

E3 


10125 

04 


10126 

OF 


10127 

C2 


10128 

02 


10129 

38 


10130 

C5 

ARC START 

10131 

EF 


10132 

CO 


10133 

02 


10134 

El 


10135 

OF 


10136 

31 


10137 

38 


10138 

3A,7D,5C 


10141 

CD,E6,30 


10144 

ef’ 


10145 

03 


10146 

EO 


10147 

E2 


10148 

OF 


10149 

CO 


10150 

01 


10151 

EO 


10152 

38 


10153 

3A,7E,5C 


10156 

CD,E6,30 



ADD 

EXCHANGE 
END FP 

LD A, (23678) Y COORDINATE 

CALL 12518 STK A 
RST 40 FP CALC 
ADD 

GET MEM O 
GET MEM 5 
END FP 
POP BC 
DEC B 

JR Z, 60 (10168) ARC END 

JR 20 (10130) ARC START 

RST 40 FP CALC 

GET MEM 1 

DUPLICATE 

GET MEM 3 

MULTIPLY 

GET MEM 2 

GET MEM 4 

MULTIPLY 

SUBTRACT 

STK TO MEM 1 

DELETE 

GET MEM 4 

MULTIPY 

GET MEM 2 

GET MEM 4 

MULTIPLY 

ADD 

STK TO MEM 2 
DELETE 
END FP 
PUSH BC 

RST 40 FP CALC 
STK TO MEM O 
DELETE 
GET MEM 1 
ADD 

DUPLICATE 
END FP 

LD A, (23677) X COORDINATE 

CALL 12518 STK A 

RST 40 FP CALC 

SUBTRACT 

GET MEM O 

GET MEM 2 

ADD 

STK TO MEM 0 
EXCHANGE 
GET MEM 0 
END FP 

LD A, (23678) Y COORDINATE 
CALL 12518 STK A 
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10159 EF 

10160 03 

10161 38 

10162 CD,10,28 

10165 Cl 

10166 10,C6 

10168 EF ARC END 

10169 02 

10170 02 

10171 01 

10172 38 

10173 3A,7D,5C 
10176 CD,E6,30 

10179 EF 

10180 03 

10181 01 

10182 38 

10183 3A,7E,5C 
10186 CD,E6,30 

10189 EF 

10190 03 

10191 38 

10192 CD,10,28 LINE DRAW 
10195 C3,88,08 


RST 40 FP CALC 

SUBTRACT 

END FP 

CALL 10256 DRAW LINE 
POP BC 

DJNZ, 198 (10110) RECALC X,Y 

RST 40 FP CALC 

DELETE 

DELETE 

EXCHANGE 

END FP 

LD A, (23677) X COORDINATE 

CALL 12518 STK A 

RST 40 FP CALC 

SUBTRACT 

EXCHANGE 

END FP 

LD A, (23678) Y COORDINATE 

CALL 12518 STK A 

RST 40 FP CALC 

SUBTRACT 

END FP 

CALL 10256 DRAW LINE 
JP 2184 R ATTR TEMP 


INITIAL PARAMETERS SUBROUTINE 

10198 EF DRAW PARAMETERS 

10199 31 

10200 28 

10201 34 

10202 32,00 

10204 01 

10205 05 

10206 E5 

10207 O1 

10208 05 

10209 2A 

10210 38 

10211 CD,93,31 
10214 38,06 
10216 E6,FC 
10218 C6,04 

10220 30,02 

10222 3E,FC USE 252 

10224 F5 DRAW SAVE 

10225 CD,E6,30 

10228 EF 

10229 E5 

10230 O1 

10231 05 

10232 31 

10233 IF 

10234 C4 

10235 02 

10236 31 


RST 40 FP CALC 

DUPLICATE 

SQR 

STK DATA 

EXP B2,+00,(+00,+00,+00) 

EXCHANGE 

DIVIDE 

GET MEM 5 

EXCHANGE 

DIVIDE 

ABS 

END FP 

CALL 12691 FP TO A 

JR C, 6 (10222) USE 252 (=>256) 

AND 252 CLEAR 2 LOW BITS' 

ADD A, 4 USE AT LEAST 4 
JR NC, 2 (10224) DRAW SAVE 
LD A, 252 
PUSH AF 

CALL 12518 STK A 

RST 40 FP CALC 

GET MEM 5 

EXCHANGE 

DIVIDE 

DUPLICATE 

SIN 

STK TO MEM 4 

DELETE 

DUPLICATE 
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10237 

A2 

STK 1/2 

10238 

04 

• •_ MULTIPLY 

10239 

IF 

SIN 

10240 

Cl 

STK TO MEM 

10241 

01 

EXCHANGE 

10242 

CO 

STK TO MEM 

10243 

02 

DELETE 

10244 

31 

DUPLICATE 

10245 

04 

MULTIF'Y 

10246 

31 

DUPLICATE 

10247 

OF 

ADD 

10243 

A1 

STK 1 

10249 

03 

SUBTRACT 

10250 

IB 

NEGATE 

10251 

C3 

STK TO MEM 

10252 

02 

DELETE 

10253 

70 

END FP 

10254 

Cl 

POP BC 

10255 

C9 

RET 


o 


LINE DRAWING SUBROUTINE 

B= ABS Y, C= ABS 

X, D=SGN Y 

10256 CD,60,26 

DRAW L 

10259 79 

DRAW LINE 

10260 BS 

10261 30,06 

10263 69 

10264 D5 

10265 AF 

10266 5F 

10267 18,07 

10269 B1 

X > Y 

10270 C8 

10271 68 

10272 41 

10273 D5 

10274 16,00 

10276 60 

L-LARGER 

10277 78 

10278 IF 

10279 85 DRAW 

LINE LOOP 

10280 38,03 

10282 BD 

10283 28,07 

10285 94 

DIAGIONAL 

10286 4F 

10287 D9 

10288 Cl 

10289 C5 

10290 18,04 

10292 4F 

HORIZ-VERT 

10293 D5 

10294 D9 

10295 Cl 

10296 2A,7D,5C 

STEP 


=SGN X 

CALL 9824 GET X,Y (STK TO BC) 
LD A, C 
CP B 

JF; NC, 6 (10269) X>Y 
LB L, C 
PUSH DE 

XOR A CLEAR A CARRY 
LD E, A 

JR 7 (10276) L-LARGER 
OR C 
RET C 
LD L, B 
LD B, C 

PUSH DE SAVE DIAGIONAL STEP 
LD D, O 
LD H, B 
LD A, B 
RR A 

ADD A, L 

JR C, 3 (10285) DIAGIONAll 
CP H 

JR C, 7 (10292) HORIZ-VERT 
SUB H 
LD C, A 
EXX 

POP BC 
PUSH BC 

JR 4 (10296) STEP 
LD C, A 
PUSH DE 
EXX 

POP BC 

LD HL, (23677) X,Y COORDIATES 
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10299 78 

10300 84 

10301 47 

10302 79 

10303 3C 

10304 35 

10305 38, 
10307 28. 

10309 3D 

10310 4F 

10311 CD. 

10314 D9 

10315 79 

10316 10. 

10318 D1 

10319 C9 

10320 28, 

10322 CF 

10323 0A 


SCANNING 

10324 DF 

10325 06. 

10327 C5 

10328 4F 

10329 21, 
10332 CD, 

10335 79 

10336 D2, 
10339 06, 

10341 4E 

10342 09 

10343 E9 

SCANNING 

10344 CD, 

10347 03 

10348 FE, 
10350 CA, 
10353 FE, 
10355 20, 
10357 CD, 
10360 FE, 

10362 C9 

SCANNING 

10363 E7 

10364 FE, 
10366 20, 
10368 CD, 

10371 DF 

10372 FE, 
10374 CD, 


OD 

OD 


3E, 26 


D9 


F3 


LINE PLOT 


RANGE 
ERR B 


LD A, B 
ADD A, H 
LD B, A 

LD A, C 

INC A 
ADD A, L 

JR C, 13 (10320) RANGE 

JR Z, 13 (10322) ERR B 

DEC A 
LD C, A 

CALL 9790 PLOT BC 
EXX 

LD A, C 

DJNZ, 217 (10279) DRAW LINE LOOP 

POP DE 

RET 

JR Z, 243 (10309) LINE PLOT 
RST 8 ERROR 

B Integer out of rnage 


EXPRESSION EVALUATION 


SUBROUTINE 

EXPRESSION 

00 

EXP LOOP 

4C, 29 
6B, 13 

42,2A 
00 


RST 24 GET CHAR 


LD B, O 
PUSH’BC 
LD C, A 

LD HL, 10572 SCAN FUNCTION TABLE 
CALL 4971 SEARCH 
LD A, C 


JP NC 10818 ALPHA NUM 
LD B, 0 
LD C, (HL) 

ADD HL, BC 
JP (HL) 


QUOTE SUBRUTINE 
74,00 CK QUOTE END 
FIND LEN 
OD 

ED, IB 

22 

FE 

74,00 


CALL 116 UPDATE KEYBOARD 
INC BC COUNTER 

CP 13 ENTER? 

JF‘ Z, 7149 SYN ERR 
CP 34 "? . ' 

JR NZ, 243 (10344) CK QUOTE END 
CALL 116 UPDATE KEYBOARD 
CP 34 "? TOO MANY? 

RET 


TWO COORDINATES SUBROUTINE (SCREENS, ATTR, POINT) 
EXP 2 COORD RST 32 NEXT CHR 

28 CP 40 (? 

06 JR NZ, 6 (10374) ERR C 


DC, IB 


CALL 7132 EXPECT 2 NUMBERS 


29 

ED, IB 


RST 24 GET CHAR 
CP 41 )? 

CALL 7149 SYN ERR 


ERR C 




SYNTAX SUBROUTINE 
10377 FD, CB, 01,7E INTERPRET'? 
10331 C9 


10 ? 


BIT 7, (IY+i) CHECK SYNTAX 
RET 


SCREEN F-'OSITION CHARACTER SUBROUTINE 

T™ FIND SCREEN P0SN CALL 9S2 4 GET X, Y (STK TO BC) 


10383 11,00,O1 

10391 19 

10392 79 

10393 OF 

10394 OF 

10395 OF 

10396 E6, EO 
10393 AS 

10399 5F 

10400 79 

10401 E6, 18 
10403 EE,40 

10405 57 

10406 06,60 

10408 C5 SCREEN LOOP 

10409 D5 

10410 E5 

10411 1A 

10412 AE 

10413 23,04 

10415 3C 

10416 20,1A 

10418 3D 

10419 4F SCREEN NATCH 

10420 06,07 

10421 14 SCREEN ROWS 

10423 23 

10424 1A 

10425 AE 

10426 A9 

10427 20,OF 
10429 10,F7 

10431 Cl 

10432 Cl 

10433 Cl 

10434 3E,80 
10436 90 
10437,01,00,00 

10440 F7 

10441 12 

10442 18,OA 

10444 El SCREEN NEXT 

10445 11,08,00 
10558 19 

10449 D1 

10450 Cl 

10451 10,D3 
10454 C9 


LD HL, 

(23606) CHAR TABLE 

LD DE, 

256 

ADD HL, 

DE HL AT BLANK 

LD A, C 


RRC A 

DIVIDE BY 8 

RRC A 


RRC A 


AND 224 

SAVE 3 HIGH BITS 

XOR B 


LD E, A 


LD A, C 


AND 24 

SAVE BITS 3 Z< 4 

XOR 64 


LD D, A 


LD B, 96 

PUSH BC 

COUNT 

PUSH DE 

SCREEN POINTER 

PUSH HL 

CHAR SET POINTER 


LD A, (DE) 

XOR <HL> 

JR Z, 4 (10419) SCREEN MATCH 
INC A 

JR NZ, 26 (10444) SCREEN NEXT 

DEC A 

LD C, A 

LD B, 7 

INC D 

INC HL 

LD A, (DE) 

XOR (HL) 

XOR C 

JR NZ, 15 (10444) SCREEN NEXT 
DJNZ, 247 (10422) SCREEN ROWS 
POP BC DISCARD CHAR SET POINTER 
FOF BC DISCARD SCREEN F'OJNTEF; 
POP BC COUNT 
LD A, 128 
SUB B 
LD BC, 1 

RST 48 INSERT BC SPACES 
LD (DE), A 

JR 10 (10455) FIND ATTR 

POP HL 

LD DE, 8 

ADD HL, DE 

POP DE 

POP BC 

DJNZ, 211 (10408) SCREEN LOOP 

RET 


FIND 
10455 

10458 

10459 

10460 
1 0461 
10462 


ATTRIBUTE 
i CD,60,26 
79 
OF 
OF 
OF 
4F 


ROUTINE 

FIND 


ATTR 


10463 

E6, 60 

10465 

A 8 

10466 

6F 

10467 

79 

1 0468 

E6,03 

10470 

EE, 58 

10472 

67 

10473 

7E 

10474 

C3,E6 


30 


CALL 9824 GET X,Y 
LD A, C 

RRC A DIVIDE BY 8 
RRC A 
RRC A 
LD C, A 

AND 224 SAVE 3 HIGH BITS 
XOR B 
LD L, A 
LD A, C 

AND 3 SAVE 2 LOW BITS 
XOR 88 FLIP BITS 3, 4 AND 6 
LD H, A 
LD A, (HL) 

JP 12518 STK A 


PI ROUTINE 


10477 

CD,89,28 

PI 

10480 

28,03 


10482 

EF 


10483 

A3 


10484 

“TO 


10485 

C3,81,2A 

S-NUMERIC 

STICK 

COMMAND ROUTINE 

10488 

CD,7B,28 

STICK 

10491 

04,02,29 


10494 

E7 


10495 

C3,81,2A 


10498 

CD,60,26 

GET 2 EXPRES 

10501 

78 


10502 

CD,2B,29 


10505 

79 


10506 

CD,2B,29 


10509 

51 


10510 

3E, OE 


10512 

D3,F5 


1051 4 

OE, FE¬ 


10516 

ED, 78 


10518 

2F 


10519 

42 


10520 

10, OC 


10522 

E6, OF 


10524 

FE, OF 


10526 

38,02 


10528 

E6,00 


10530 

CD,E6,30 

STACK # 

10533 

C9 


10534 

07 

BUTTON? 

10535 

E6,01 


10537 

18,F7 


10539 

D6, 02 

CK 2 

10541 

CE, 00 



CALL 10377 INTERPRET? 

JR Z, 3 (10485) S—NUMERIC 
RST 40 FP CALC 
STK PI/2 
END FP 

JP 10881 S-NUMERIC 


CALL 10363 EXPRESSION 2-COORD 
CALL NZ, 10498 GET 2 EXPRESSIONS 
RST 32 NEXT CHAR 
JP 10881 S NUMERIC 
CALL 9824 GET X,Y 
LD A, B 

CALL 10539 CK 2 
LD A, C 

CALL 10539 CK 2 
LD D, C 

LD A, 14 REG # 

OUT (245), A STICK 
LD C, 246 PORT # 

IN A, (C) GET STICK COMMAND ' 
CPL 

LD B, D 

DJNZ, 12 (10534) BUTTON? 

AND 15 SAVE LOW NIBBLE 

CP 15 

JR C, 2 (10530) STACK # 

AND O BIT O? 

CALL 12518 STK A 
RET 

RLC A BIT 7? 

AND 1 

JR 247 (10530) STACK # 

SUB 2 WHICH STICK? 

ADC A, O 
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10543 20,01 
10545* C9 

10546 CF 

10547 09 


JR NZ, 1 (10546) ERR A 

RET 

ERR A RST S ERROR 

A Invalid argument 


FREE FUNCTION COMMAND ROUTINE 
10548 CD,89,28 FREE 

10551 28,OF 
10553 2A,B2,5C 
10556 ED,5B,65,5C 

10560 A7 

10561 ED,52 

10563 4D 

10564 44 

10565 CD,E9,30 

10568 E7 GET NEXT CHAR 

10569 C3,81,2A 


CALL 10377 INTERPRET? 

JR Z, 15 (10568) GET NEXT CHAR 

LD HL, (23730) RAMTQP 

LD DE, (23653) STK END 

AND A CLEAR FLAGS 

SBC HL, DE 

LD C, L 

LD B, H 

CALL 12521 STK BC 
RST 32 NEXT CHAR 
JP 10881 S-NUMERIC 


SCANNING FUNCTION TABLE 


10572 
10574 
10576 
10578 
10530 
10582 
10584 
10586 
10538 
10590 
10592 
10594 
10596 
10598 
10600 



li 

(10609) 

28, 57 

( 

(10662) 

2E, FA 


(10827) 

2B, 1A 

4* 

(10605) 

7C, 16 

STICK 

(10603) 

7E, 12 

FREE 

(10601) 

AS, 5 A 

FN 

(10675) 

A5, 5B 

RND 

(10678) 

A7,88 

PI 

(10725) 

A6, AB 

INKEY* 

(10738) 

C4,EA 

BIN 

(10827) 

AA, C3 

SCREEN* 

(10790) 

AB, CB 

ATTR 

(10300) 

A9, D2 

POINT 

(10809) 

00 

END MARKER 



SCANNING FUNCTIONS ROUTINES 


10601 

18, C9 

SYN-FREE 

10603 

18,8B 

SYN-STICK 

10605 

E7 

SYN-UNARY+ 

10606 

C3,58,28 


10609 

DF 

SYN-QUOTE 

10610 

'“>“7 


10611 

E5 


10612 

01,00,00 


10615 

CD,68,28 


10618 

20, IB 


10620 

CD,68,28 

DOUBLE 

10623 

28, FB 


10625 

CD,89,28 


10628 

28,11' 


10630 

F7 


10631 

El 


10632 

D5 


10633 

73 

QUOTE COPY 

10634 




JR 201 FREE 

JR 139 STICK 

RST 32 NEXT CHAR 
JP 10328 EXPRESSION 
RST 24 GET CHAR 
INC HL 
PUSH HL 
LD BC, O 

CALL 10344 FIND LENGTH 
JR NZ, 27 (10647) QUOTE PARAM 
CALL 10344 FIND LENGTH 
JR Z, 251 (10620) DOUBLE "" 

CALL 10377 INTERPRET? 

JR Z, 17 (10647) QUOTE PARAM 
RST 48 INSERT BC SPACES 
POP HL 
PUSH DE 
LD A, (HL) 

INC HL 


10635 

12 

10636 

13 - ~~ 

10637 

FE,22 

10639 

20, F8 

10642 

-7CT 

/ L_ 

10642 

n T 

10643 

FE, 22 

10645 

23, F8 

10647 

OB 

10648 

D1 

10649 

21,3B,5C 

10652 

CB, B6 

10654 

CB, 7E 

10656 

C4,70,2E 

1 0659 

C3,DO,2A 

10662 

E7 

10663 

CD,54,28 

10666 

FE , 29 

10668 

C2,ED,IB 

10671 

E7 

10672 

C3,DO,2A 

10675 

83,78,2B 

10678 

CD,39,28 

10681 

28,28 

1 0683 

ED,4B,76, 

10687 

CD,E9,30 

10690 

EF 

10691 

A1 

10692 

OF 

10693 

34 

10694 

37,16 

10696 

04 

10697 

34 

10698 

80 

10699 

41,00,00, 

10703 

TO 

10704 

02 

10705 

A1 

10706 

03 

10707 

31 

10708 

38 

10709 

CD,60,31 

10712 

ED,42,76, 

10716 

7E 

10717 

A7 

10718 

28,03 

10720 

D6, 10 

10722 

77 

10723 

18,09 

10725 

CD,89,28 

10728 

28,04 

10730 

EF 

10731 

A3 

10732 

38 

10733 

34 


QUOTE PARAM 


SYN-BRACKET 


SYN-RND 
DO RND 


S-RND END 
S—PI 

DO PI 


LD (DE), A 
INC DE 
CP 34 "? 

JR NZ, 24S (10633) QUOTE COPY 
LD A, (HL) 

INC HL 
CP 34 *'? 

JR NZ, 248 (10633) QUOTE COPY 
DEC BC 

POP DE START OF COPIED STRING 
JD HL, 23611 AT FLAGS 
RES 6, (HL) STRING ON 
BIT 7, (HL) CHECK SYNTAX? 

CALL NZ, 11888 GET STRING PARAM 

JP 10960 S-CONT-2 

RST 32 NEXT CHAR 

CALL 10324 EXPRESSION 

CP 41 )? 

JP NZ, 7149 SYN ERR 
RST 32 NEXT CHAR 
JP 10960 S-CONT-2 
JP 11131 FN 
CALL 10377 INTERPRET? 

JR Z, 40 (10723) SYN-RND END 

LD BC, (23670) SEED 

CALL 12521 STK BC 

RST 40 FP CALC 

STK 1 

ADD 

STK DATA 

EXP 87,+16,(+00,+00,+00) 

MULTIPLY 

STK DATA 

4 BYTES WORTH 

EXP 91,+00,+00,+80,(+00) 

N MOD M 
DELETE 
STK 1 
SUBTRACT 
DUPLICATE 

END FP • \ 

CALL 12640 FP TO BC 
LD (23670), BC SEED 
LD A, (HL) 

AND A CLEAR FLAGS 

JR Z, 3 (10723) S-RND-END 

SUB 16 

LD (HL), A 

JR 9 (10733) PI-END 

CALL 10377 INTERPRET? 

JR Z, 4 SKIP RUN 
RST 40 FP CALC 
STK PI/2 
END 

INC (HL) EXPONENT INC =X2 


10734 

E7 

10735 

C3,81,2A 

10738 

01,5 A, 10 

10741 

E7 

10742 

FE, 23 

10744 

CA,CB,2A 

10747 

21,3B,5C 

10750 

CB, 7E 

10752 

CB, 7E 

10754 

28, IF 

10756 

CD,BO,02 

10759 

OE, 00 

10761 

20, 13 

10763 

CD,5C,03 

10766 

30, OE 

10768 

15 

10769 

5F 

10770 

CD,71,03 

10773 

F7 

10774 

01,01,00 

10777 

F7 

10778 

FI 

10779 

12 

10780 

OE, 01 

10782 

06,00 

10784 

CD,70,2E 

10787 

C3,DO,2A 

10790 

CD,7B,28 

10793 

C4,SE,28 

10796 

E7 

10797 

C3,99,29 

10800 

CD,7B,28 

10803 

C4,D7,23 

10806 

E7 

10807 

18,48 

10809 

CD,7B,28 

10812 

C4,24,26 

10815 

E7 

10816 

18,3F 

10818 

CD,46,30 

10821 

30,56 

10823 

FE, 41 

10825 

30,3C 

10827 

CD,89,28 

10830 

20,23 

10832 

CD,59,30 

10835 

DF 

10836 

01,06,00 

10839 

CD,BB,12 

10842 

OT 

10843 

36, OE 

10845 

OT 

10846 

EB 

10847 

2A,65,5C 

10850 

OE, 05 


S—PI—END RST 32 NEXT CHAR 

-- _ - JP 10881 S NUMERIC 

S-INKEY* LD BC 4186 PRIORITY 16/CODE 5A 

RST 32 NEXT CHAR 
CP 35 #? 

JP Z, 10955 PUSH PRIORITY 
LD HL, 13611 FLAGS 
RES 6, (HL) STRING ON 
BIT 7, (HL) SYNTAX? 

JR Z, 31 (10787) INKEY* END 

CALL 688 K SCAN 
LD C, O 

JR NZ, 19 (10782) INKEY* STK 
CALL 860 K-BASE 
JR NC, 14 (10782) INKEY* STK 
DEC C 
LD E, A 

CALL 881 CHAR CODE 
PUSH AF 
LD BC, 1 

RST 48 INSERT BC SPACES 
POP AF 
LD (DE), A 
LD C, 1 

INKEY* STK LD B, O 

CALL 11888 GET STRING PARAM 
INKEY* END JP 10960 S-CONT-2 

SCREEN* CALL 10363 SYN 2-COORD 

CALL NZ, 10382 FIND SCREEN 
RST 32 NEXT CHAR 
JP 10649 SYN-STRING 
ATTR CALL 10363 EXP-2-CQ0RD 

CALL NZ, 10455 FIND SCREEN 
RST 32 NEXT CHAR 
JR 72 (10831) S NUMERIC 
POINT CALL 10363 EXP-2-C0QRD 

CALL NZ, 9764 FIND POINT 
RST 32 NEXT CHAR 
JR 63 (10881) S NUMERIC 
ALPHA NUM CALL 12358 ALPHA? 

JR NC, 86 (10909) SYN NEGATE 
CP 65 A? 

JR NC, 60 (10837) S-LET # 

S—BIN = S DECIMAL CALL 10377 INTERPRET? 

JR NZ, 35 (10867) SYN-STK DEC 
CALL 12377 SKT UNSIGNED # 

RST 24 GET CHAR 

LD BC, 6 SLUG NEEDS 6 SPACES 
CALL 4795 INSERT BC SPACES 
INC HL 

LD (HL), 14 SLUG 

INC HL 
EX DE, HL 

LD HL, (23653) STK END 

LD C, 5 GO BACK 5(TO START OF #) 
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10852 A7 

10853 ED,42 
10855 22,65. 
10858 ED,BO 

10860 EB 

10861 2B 

10862 CD,77. 
10865 18,OE' 

10867 DF 

10868 23 
10868 7E 
10370 FE,OE 
10872 20,FA 

10874 23 

10875 CD,73 
10878 22,5D 
10881 FD,CB 
10885 18,14' 

SCAN VARIABL 
10887 CD,70 
10890 DA,91 
10893 CC,54 
10896 3A,3B 
10899 FE,CO 
10901 38,04 

10903 23 

10904 CD,73, 
10907 18,33.' 
10909 01,DB, 
10912 FE,2D 
10914 28,27 
10916 01,18, 
10919 FE,AE 
10921 28,20 
10923 D6,AF 
10925 DA,ED, 
10928 01,FO, 
10931 FE,14 
10933 28,14 
10935 D2,ED, 
10938 06,10 
10940 C6,DC 

10942 4F 

10943 FE,DF 
10945 30,02 
10947 CB,B1 
10949 FE,EE 
10951 38,02 
10953 CB,B9 

10955 C5 

10956 E7 

10957 C3,58, 

10960 DF 

10961 FE,28 



00 


SYN-STK DEC 
STK DEC SKIP 


5C 

01,F6 S-NUMERIC 


AND A CLEAR FLAGS 
SBC HL, BC 

LD (23653), HL STK END 
LDIR 

EX DE, HL 
DEC HL 

CALL 119 UPDATE CHAR ADDR 
JR 14 (10887) SYN-LET # 

RST 24 GET CHAR 
INC HL 
LD A, (HL) 

CP 14 SLUG? 

JR NZ, 250 (10868) STK DEC SKIP 
INC HL 

CALL 14195 STK MEM 
LD (23645), HL CHAR ADDR 
SET 6, (IY+1) # ON 

NR 20 (10907) CONT-1 


E ROUTINE 

2C SYN-LET # 

IB 


2D 

5C 


CONT-1 
09 SYN-NEGATE 

01 


IB 

04 

IB 


SYN-# TO STRING 

PUSH PRIORITY 


28 


S-CONT-2 
FIND BRACKET 


CALL 11376 FIND VARIABLE 

JP C, 7057 ERR 2 

CALL Z, 1604 STK VARS 

LD A, (23611) FLAGS 

CP 192 BIT 6 & 7 = CHAR ARRAY? 

JR C, 4 (10907) CONT-1 
INC HL 

CALL 14195 STK MEM 
JR 51 (10960) CONT-2 

LD BC, 09DB(HEX) PRIOR 9/CODE DB 
CP 45 MINUS? 

JR Z, 39 (10955) PUSH PRIORITY 
LD BC, 1018(HEX) PRIOR 10/CODE 18 
CP 174 VAL$ 

JR Z, 32 (10955) PUSH PRIORITY 
SUB 175 REDUCE ALL CODES 
JP C, 7149 SYN ERR 
LD BC, 04F0(HEX) PRIOR 4/CODE FO 
CP 20 NOT? 

JR Z, 20 (10955) PUSH PRIORITY? 

JP NC, 7149 SYN ERR 
LD B, 16 PRIORITY 16 
ADD A, 220 (CODES NOW +45) 

LD C, A 

CP 223 SIN? (CODE, VAL & LEN) 

JR NC, 2 (10949) # TO STRING 
RES 6, C OPER CODE 
CP 238 USR? (STR$ S< CHR$) 

JR C, 2 (10955) PUSH PRIORITY 
RES 7, C OPER CODE 
PUSH BC 

RST 32 NEXT CHAR 
JP 10328 EXP LOOP 
RST 24 GET CHAR 
CP 40 (? 
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10963 

20, OC 


10965 

FD,CB,01 

,76 

10969 

20, 17 


10971 

CD,10,2E 


10974 

E7 


10975 

18, FO 


10977 

06,00 

S-OPERATOR 

10979 

4F 

SET PRIORITY 

10980 

21,53,2B 


10983 

CD,6B, IB 


10936 

30,06 


10988 

4E 


10989 

21,AB,2A 


1 0992 

09 


10993 

46 


10994 

D1 

S-LOOP 

10995 

7 A 


10996 

B8 


10997 

38,3A 


10999 

A7 


11000 

CA,18,00 


11003 

C5 


11004 

21,3B,5C 


11007 

7B 


11008 

FE, ED 


11010 

20, 06 


11012 

CB, 76 


11014 

20,02 


11016 

IE,99 


11018 

D5 

STK LAST 

11019 

CD,89,28 


11022 

28,09 


11024 

7B 


11025 

E6,3F 


11027 

47 


11028 

EF 


11029 

3B 


11030 

38 


11031 

18,09 


11033 

7B 

S SYN TEST 

11034 

FD,AE,01 


11037 

E6, 40 


11039 

C2,ED,18 

ERR C 

11042 

D1 

S RUN TEST 

11043 

21,3B,5C 


11046 

CB, F6 


11048 

CB,7B 


11050 

20,02 


11052 

CB, B6 


11054 

Cl 

S END LOOP 

11055 

IS,Cl 


11057 

D5 

S-TIGHTER 

11058 

79 


11059 

FD,CB,01, 

76 

11063 

20, 15 



JR NZ, 12 (10977) OPERATION 
BIT 6, (IY+1) # ON? 

JR NZ, 23 (10994) S-LOOP 

CALL 11792 SLICER 

RST 32 NEXT CHAR 

JR 240 (10960) FIND BRACKET 

LD B, O 

LD C, A 

LD HL, 11091 OPERATOR TABLE 
CALL 4971 SEARCH 
JR NC, 6 (10994) S-LOOP 
LD C, (HL) CODE 

LD HL, 10923 PRIORITY TABLE OFFST 

ADD HL , BC 

LD B, (HL) PRIORITY 

POP DE 

LD A, D PRIORITY 

CP B WITH LAST? 

JR C, 58 (11057) S-TIGHTER 
AND A CLEAR FLAGS 
JP Z, 24 (0024) GET CHAR 
PUSH BC 

LD HL, 23611 AT FLAGS 
LD A, E 

CP 237 USR? (STILL +45) 

JR NZ, 6 (11018) STK LAST 
BIT 6, (HL) # ON? 

JR NZ, 2 (11018) STK LAST 
LD E, 153 OFFSET FOR LAST CODE 
PUSH DE 

CALL 10377 INTERPRET? 

JR Z, 9 (11033) S SYN TEST 
LD A, E 

AND 63 SAVE 5 LOW BITS 
LD B, A 

RST 40 FP CALC 
FP CALC 2 
END FP 

JR 9 (11042) S RUN TEST 

LD A, E 

XOR (IY+1) FLAGS 
AND 64 TOKEN? 

JP NZ, 7149 SYN ERR 
POP DE 


LD HL, 
SET 6, 
BIT 7, 
JR NZ, 
RES 6, 
POP BC 


23611 AT FLAGS 
(HL) # ON 

E 

2 (11054) END LOOP 
(HL) STRING ON 


JR 193 (10994) S LOOP 
PUSH DE 


LD A, C 

BIT 6, (IY+1) # ON? 

JR NZ, 21 (11086) S-NEXT 
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11065 E6,3F 
11067 C6,08 

11069 4F 

11070 FE,10 
11072 20,04 
11074 CB,F1 
11076 18 *,08 
11078 38,D7 
11080 FE,17 
11082 28,02 
11084 CB,F? 

11086 C5 

11087 E7 

11088 C3,58,28 

TABLE OF OPERATORS 
11091 2B,CF 
11093 2D,C3 
11095 2A,C4 
11097 2F,C5 
11099 5E,C6 
11101 3D,CE 
11103 3E,CC 
11105 3C,CD 
11107 C7,C9 
11109 CS,CA 
11111 C9,CB 
11113 C5,C7 
11115 C6, CS- 
ll 117 00 

TABLE OF PRIORITIES 

11118 C3 

11119 C4 

11120 05 

11121 06 

11122 07 

11123 08 

11124 09 

11125 CA 

11126 CB 

11127 CC 

11128 CD 

11129 OE 

11130 OF 

SCAN FOR FUNCTION SUBROUTINE 

11131 CD,89,28 FN 

11134 20,35 

11136 E7 

11137 CD,4B,30 
11140 D2,ED,IB 

11143 E7 

11144 FE,24 
11146 F5 


AND 63 CLEAR BITS 6 & 7 
ADD A r - S INCREASE CODE BY 8 
LD C-, A 
CP 16 AND? 

JR NZ, 4 (11078) NOT AND 
SET 6, C NEED # ON 


JR 8 

(11086) S—NEXT 

JR C 

, 215 (11039) ERR i 

CP 2 

~7‘ 11 _|_ 11 

JR Z 

, 2 (11086) S-NEXT 

SET 

7, C # ON 

PUSH 

BC 

RST 

32 NEXT CHAR 

JP 10328 EXP LOOP 

+ CODE CF 

- 

C3 

* 

C4 

/ 

C5 


C6 

= 

CE 


CC 


CD 

< = 

C9 

> = 

CA 


CB 

OR 

C7 

AND 

CS 

END 

MARKER 


PRIORITY 

- 

6 

* 

8 

/ 

8 


10 

OR 


AND 

"T 

< = 

cr 

>= 

5 


5 


5 


5 

- 

5 

4- 

6 


CALL 10377 INTERPRET? 

JR NZ, 53 (11189) S—RUN FN 

RST 32 NEXT CHAR 
CALL 12363 ALPHA? 

JR NC, 7149 SYN ERR 
RST 32 NEXT CHAR 
CP 36 *? 

RST 32 NEXT CHAR 


NOT AND 


S—NEXT 


115 


11147 

20,01 


1114? 

E! 7 


1 1 150 

FE, 28 

BRACKET? 

1 1152 

20, 12 


1 1 154 

E 7 


1 1155 

FE, 29 


1 1 157 

28 , 01 


1 1159 

80,54,28 

FN-ARGUMENTS 

1 1 162 

DF 


1 1163 

FE, 2C 


11165 

20,03 


1 1167 

E7 


1 1 168 

18, F5 


1 1170 

FE, 2? 

BRACKET-2? 

11172 

C2,ED,1B 

SYN ERR 

1 11 75 

E7 

FN-FLAGS 6 

11176 

21,3B,5C 


1 1179 

CB, B6 


11181 

FI 


11182 

28, 02 


11 184 

CB, F6 


11186 

C3,DO,2A 

SYN-FN-END 

11189 

E7 

SYN RUN FN 

1 1190 

E6, DF 


11 192 

47 


1 1193 

E7 


1 1 194 

D6,24 


11196 

4F 


1 1 197 

20,01 


1119? 

E7 


11200 

E7 

ARGUMENT-1 

1 1201 

E5 


11202 

2A,53,5C 


1 1205 

2B 


11206 

11,CE,00 

FIND DEF FN 

11209 

C5 


11210 

CD,28,ID 


11213 

Cl 


11214 

30,02 


1 1216 

CF 

ERR P 

11217 

18 


1 1218 

E5 COMPARE DEF FN 

11219 

CD,69,2C 


1 1222 

E6, DF 


11224 

B8 


1 1225 

20,08 


11227 

CD,69,2C 


11230 

D6,24 


11232 

B9 


11233 

28, OC 


11235 

El 

FN NOT FOUND 

1 1236 

2B 


11237 

11,00,02 


11240 

C5 


11241 

CD,F3,16 



JR N2, 1 (11150) BRACKET? 

RST 32 NEXT CHAR 
CP 40 (? 

JR NZ, 18 (11172) SYN ERR 
RST 32 NEXT CHAR 
CP 41 )? 

JR Z, 16 (11175) FN-FLAGS 6 
CALL 10324 EXPRESSION 
RST 24 GET CHAR 
CP 44 

JR NZ, 3 (11170) BRACKET-2? 

RST 32 NEXT CHAR 

JR 245 (11159) FN ARGUMENTS 

CP 41 )? 

JP NZ, 7149 SYN ERR 
RST 32 NEXT CHAR 
LD HL, 23611 AT FLAGS 
RES 6, (HL) ASSUME STRING 
POP AF 

JR Z, 2 (11186) SYN-FN-END 

SET 6 ,(HL) # ON 

JP 10960 S—CONT—2 

RST 32 NEXT CHAR 

AND 223 UPPER CASE 

LD B, A 

RST 32 NEXT CHAR 
SUB 36 CODE FOR $ 

LD C, A 

JR NZ, 1 (11200) ARGUMENT-1 

RST 32 NEXT CHAR 
RST 32 NEXT CHAR 
PUSH HL 

L.D HL, (23635) PROGRAM 
DEC HL 

L.D DE, 206 DEF FN 
PUSH BC 

CALL 7464 SKIP (LOOK PROG) 

POP BC RESTORE NAME AND STATUS 
JR NC, 2 (11213) COMPARE DEF FN 
RST 8 ERROR 
P FN without DEF 
PUSH HL 

CALL 11369 NXT—HL (SKIP 'OVER) 

AND 223 CLEAR BIT 5 
CP B 

JR NZ, 8 (11235) FN-NOT FOUND 
CALL 11369 NEXT—HL(SKIP OVER) 
SUB 36 CODE FOR * 

CP C 

JR Z, 12 (11247) FN VALUES 
POP HL 
DEC HL 
LD DE, 512 

PUSH BC SAVE NAME AND STATUS 
CALL 5875 SUB LINE 1 






1 1244 

Cl 



POP BC 

11245 

18, D7 



JR 215 (11205) FIND DEF FN 

1 1247 

A7 


FN VALUES 

AND A CLEAR FLAGS 

11248 

CC,69,2c 



CALL Z, 11369 NEXT-HL(SKIP OVE! 

1 1251 

D1 



POP DE DISCARD POINTER TO DEF 

11252 

D1 



POP DE 1ST ARG OF FN 

1 1253 

ED,53,5D 

5C 


LD (23645), DE CHAR ADDR 

11257 

CD,69,2C 



CALL 11369 NEXT—HL(SKIP OVER) 

1 1260 

E5 



PUSH HL 

1 1261 

FE, 29 



CP 41 )? 

1 1263 

28, 42 



JR Z, 66 (11331) REP BRACKET-2 

11265 


FI'- 

J-ARG LOOP 

INC HL 

1 1266 

7E 



LD A, (HL) 

11267 

FE, 0E 



CP 14 SLUG? 

1 1269 

16,40 



LD D, 64 

11271 

28,07 



JR NZ, 7 (11280) FN ARG VALUE 

1 1273 

2B 



DEC HL 

11274 

CD,69,2C 



CALL 11269 NEXT-HL(SKIP OVER) 

1 1277 




INC HL 

11278 

16,00 



LD D, 0 

1 1280 

2 

FN 

ARG VALUE 

INC HL 

11281 

E5 



PUSH HL 

11282 

D5 



PUSH DE 

11283 

CD,54,28 



CALL 10324 EXPRESSION 

1 1286 

FI 



POP AF 

11287 

FD,AE,01 



XOR (IY+1) 

1 1290 

E6, 40 



AND 64 # ON? 

11292 

20,2B 



JR NZ, 43 (11337) ERR Q 

1 1294 

El ’ 



POP HL 

11295 

EB 



EX DE, HL 

1 1296 

2A,65,5C 



LD HL, (23653) STK END 

11299 

01,05,00 



LD BC, 5 BACK UP 5 

1 1302 

ED, 42 



SBC HL, BC 

11304 

22,65,5C 



LD (23653) , HL. STK END 

11307 

ED, BO 



LDIR 

11309 

EB 



EX DE, HL 

1 1310 

2B 



DEC HL 

11311 

CD,69,2C 



CALL 11369 NEXT HL(SKIP OVER) 

1 1314 

FE, 29 



CP 41 )? 

11316 

28, OD 



JR Z, 13 (11331) FN REP BRACKE 

1 1318 

E5 



PUSH HL . / 

11319 

D5 



RST 24 GET CHAR 

11320 

FE, 2C 



CP 44 ","? 

11322 

20, OD 



JR NZ, 13 (11337) ERR Q 

1 1324 

E7 



RST 32 NEXT CHAR 

11325 

El 



POP HL 

1 1326 

CD,69,2C 



CALL 11369 NEXT HL(SKIP OVER) 

11329 

18, BE 



JR 190 (11263) FN ARG LOOP 

1 1331 

E5 FN 

REP 

BRACKET-2 

PUSH HL 

11332 

DF 



RST 24 GET CHAR 

11333 

FE, 29 



CP 41 )? 

11335 

28,02 



JR Z, 2 (11339) FN VALUE 

11337 

CF 


ERR Q 

RST 8 ERROR 

11338 

18 



Q Parameter error 

1 1339 

D1 


FN VALUE 

POP DE 




EX DE, HL 

LD (23645), HL CHAR ADDR 
LD HL, (23563) DEF ADDR 
EX (SR), HL 

LD (23563), HL DEF ADDR 
PUSH DE 

RST 32 NEXT CHAR 
RST 32 NEXT CHAR 
CALL 10324 EXPRESSION 
POP HL 

LD (23645), HL CHAR ADDR 
POP HL 

LD (23563) HL DEF ADDR 
RST 32 NEXT CHAR 
JP 10960 S—CQNT—2 


11340 

EB 


1 1341 

22,50,50 


11344 

2A,OB,5C 


1 1347 

E3 


11343 

22,OB,5C 


11351 

05 


1 1352 

E7 


1 1353 

E7 


11354 

CO,54,28 


11357 

El 


11353 

22,50,50 


1 1361 

El 


11362 

22,OB,50 


1 1365 

E7 


11366 

03,DO,2A 


FUNCTION SLIPOVER 

SUBROUTINE 

11369 

23 NEXT HL(SKIP OVER) 

1 1370 

7E 


11371 

FE ,21 


11373 

38, FA 


11375 

09 


LOOK 

IN VARS SUBROUTINE 

1 1376 

FD,CB,01, F6 

FIND N(LOO! 

11380 

DF 


11331 

CD,4B,30 


11384 

D2,ED,IB 


1 1387 

E5 


11388 

E6, IF 


1 1390 

4F 


11391 

E7 


1 1392 

E5 


11393 

FE, 28 


11395 

*“> o o O 

jL. VJ , O 


11397 

CB, FI 


1 1399 

FE, 24 


11401 

28, 11 


11403 

CB, FI 


11405 

CD,46,30 


11408 

30, OF 


11410 

CD,46,30 

V-CHAF: 

11413 

0,16 


11415 

CB, F1 


11417 

E7 


11418 

18,F6 


1 1420 

E7 

V-STR-VAR 

11421 

FD,CB,01,B6 


11425 

3A,OC,5C 

V-TEST FN 

11428 

A7 


11429 

28,06 


11431 

CD,89,28 


11434 

C2,OF,2D 


11437 

41 

V-RUN/SYN 

11438 

CD,89,28 



INC HL 
LD A, (HL) 

CP 33 ! ? 

JR C, 250 (11369) NEXT HL(SKIP 
RET OVER) 

VARS) SET 6, (IY+1) ASSUME # 

RST 24 GET CHAR 
CALL 12363 ALPHA? 

JP NC, 7149 SYN ERR 
PUSH HL 

AND 31 SAVE 5 LOW BITS 

LD C, A SAVE 1ST LETTER NAME 

RST 32 NEXT CHAR 

PUSH HL 

CP 40 (? 

JR 2, 40 (11437) V—RUN/SYN 

SET 6, C SINGLE LETTER VARIABLE 

CP 36 $? STRING? 

JF; Z, 17 (11420) V-STR-VAR 
SET 5, C NUMERIC VARIABLE 
CALL 12358 ALPHA? 

JR NC, 15 (11425) V—TEST FN 
CALL 12358 ALPHA? 

JR NC, 22 (11437) V-STR-VAR 

RES 6, C LONG NAME VAR/ARRAY 

RST 32 NEXT CHAR 

JF: 246 (11410) V-CHAR 

RST 32 NEXT CHAR 

RES 6, (IY+1) STRING ON 

LD A, (23564) DEF ADDR 

AND A CLEAR FLAGS 

JR Z, 6 (11437) V-RUN/SYN 

CALL 10377 INTERPRET? 

JP NZ, 11535 STK FN ARGUMENT 
LD B, C 

CALL 10377 INTERPRET? 







1 IS 


11441 

20,08 

1 1443 

-79 

11444 

E6, EO 

1 1446 

CB,FF 

11448 

4F 

1 1449 

18,37 

11451 

2A,4B 

1 1454 

7E 

11455 

E6,7F 

1 1457 

28, 2D 

11459 

B9 

1 1460 

20, 22 

1 1462 

17* 

1 1463 

87 

1 1464 

F2,FD 

1 1467 

•—• 8 , 0*0 

11469 

D1 

1 1470 

D5 

11471 

E5 

1 1472 


11473 

1A 

1 1474 

13 

11475 

FE, 20 

1 1477 

28, FA 

1 1479 

F6,20 

1 1481 

BE 

11482 

28, F4 

1 1484 

F6, 80 

11486 

BE 

1 1487 

20, 06 

11489 

1A 

1 1490 

CD, 46 

11493 

30, 15 

11495 

El 

11496 

C5 

1 1497 

CD, 20 

11500 

EB 

1 1501 

Cl 

11502 

18, CE 

11504 

CB,F8 

11506 

D1 

1 1507 

DF 

11508 

FE, 28 

1 1510 

28,09 

11512 

CB,E8 

11514 

18, OD 

11516 

D1 

1 1517 

D1 

11518 

D1 

1 1519 

E5 

11520 

DF 

11521 

CD, 46 

11524 

30,03 

11526 

E7 

11527 

18,F8 


V—RUN 


V-EACH 


V-MATCHES 

V-5PACES 


V-GET POINTER 
V-NEXT 


V-BIT 7 
V-SYNTAX 


V—FOUND-1 
V—FOUND—2 


V-PASS 


JR NZ, 8 (11451) V RUN 
LD A, C 

AND 224 DROP CHAR CODE 
SET 7, A ARRAY/FOR VAR 
LD C, A 

JR 55 (11506) V-SYNTAX 
LD HL, (23627) VARS 
LD A, (HL) 1ST LETTER 
AND 127 CLEAR BIT 7 
JR Z, 45 (11504) V-BIT 7 
CP C 

JR NZ, 34 (11496) V NEXT 
RL A TEST BIT 7 
ADD A, A 

JP P 11517 V FOUND—2 

JR C, 48 (11517) V FOUND—2 

POP DE 

PUSH DE 

PUSH HL 

INC HL 

L.D A, (DE) 

INC DE 

CP 32 SPACE? 

JR Z, 250 (11473) V-SF'ACES 
OR 32 MATCH LOWER CASE? 

CP (HL) 

JR Z, 244 (11472) V-MATCHES 
OR 128 SET BIT 7 
CP (HL) 

JR NZ, V-GET POINTER 
LD A, (DE) 

CALL 12358 ALPHA NUM? 

JR NC, 21 (11516) V—FOUND—1 

POP HL GET POINTER 
PUSH BC 

CALL 5920 RECORD LENGTH 
EX DE, HL 
POP BC 

JR 206 (11454) V-EACH 
SET 7, B NO VAR FOUND 
POP DE . ; 

RST 24 GET CHAR 
CP 40 (? 

JR Z, 9 (11521) V PASS 

SET 5, B NO ARRAY 

JR 13 (11529) V-END 

POP DE DROP VAR POINTER 

POP DE DROP 2ND CHAR POINTER 

POP DE 1ST LETTER POINTER 

PUSH HL SAVE LAST LETTER POINTER 

RST 24 GET CHAR 

CALL 12358 ALNUM? 

JR NC, 3 (11529) V-END 
RST 32 NEXT CHAR 
JR 248 (11521) V-PASS 
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11529 

11530 
1 1532 

11534 

STACK 

11535 
1 1538 
11539 
1 1541 
11544 
1 1545 
11547 
1 1548 
11549 
1 1550 
11552 
1 1554 
11555 
1 1558 
11559 

11561 

11562 

11563 
11565 
1 1566 
11567 
1 1568 

11569 

11570 
11573 
1 1575 
11578 
11581 
11583 
11585 

11587 

11588 
11592 
1 1595 
11596 

11599 

11600 
1 1601 
11602 
11603 

STACK 
1 1604 

11605 

11606 
11608 
11610 
11612 
11614 


El 

CB ,01 
CB, 70 
C9 


V-END POP HL 

RL B 

BIT 6, B 
RET 


f-UNCTION ARGUMENT SUBROUTINE 


2A,OB,5C STK FN ARG 
7E 

FE, 29 
CA,AD,2C 

7E SFA LOOP 

F6, 60 
47 


LD HL, (23563) DEF ADDR 
LD A, (HL) 

CP 41 )? 

JP Z, 11437 V-RUN/SYN 
LD A, (HL) 

OR 96 SET BITS 5 ?/ 6 
LD B, A 
INC HL 


L-D A, (HL.) 

CP 14 SLUG? 

JR Z, 7 (11561) SFA COMPARE 
DEC HL 


•-'ARS 


CD,69,2C 
CB, AS 

78 SFA COMPARE VARS 
B9 


CALL 11369 NEXT HL(SKIP OVER) 
INC HL 

RES 5, B NOT STRING/ARRAY 
LD A, B 
CP C 



CD,69,2C 
FE, 29 

CA, AD,2C 
CD,69,2C 
18, D9 

CB, 69 SFA MATCH 
20, OC 


ED,5B,65,5C 
CD,7F,37’ 

EB 

22,65,5C 


D1 

Dl 

AF 


3C 


C9 


SFA END 


JR Z, 18 (11533) SFA MATCH 
INC HL SKIP # 

INC HL 
INC HL 
INC HL 
INC HL 

CALL 11369 NEXT HL (SKIP OVER) 
CP 41 )? 

JP Z, 11437 V RUN/SYN 
CALL 11369 NEXT HL (SKIP OVER) 
JR 217 (11544) SFA LOOP 
BIT 5, C NUMERIC VAR? 

JR NZ, 12 (11599) SFA END 
INC HL 

LD DE, (23653) STK END 
CALL 14207 DUPLICTE 
EX DE, HL 

LD (23653) HL STK END 

POP DE DISCARD 2ND CHAR POINTER 

POP DE DISCARD 1ST CHAR POINTER 

XOR A CLEAR A Z< CARRY 

INC A CLEAR ZERO FLAG 

RET 


VARS SUBROUTINE 
AF STK VAR 

47 


CB, 79 
20,4B 
CB, 7E 
20, OE 
3C 


XOR A CLEAR A & CARRY 

LD B, A CLEAR B 

BIT 7, C SYNTAX CHECK ? 

JR NZ, 75 (11635) SV-COUNT 
BIT 7, (HL) ARRAY/FOR? 

JR NZ, 14 (11628) SV ARRAYS 
INC A 
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11615 23 

11616 4E 

11617 23 

11618 46 

11619 23 

11620 EB 

11621 CD,70,2E 

11624 DF 

11625 C3,07,2E 
11628 23* 

11629 23 

11630 23 

11631 46 

11632 CB,71 
11634 28,0A 

11636 05 

11637 28,E8 
1163? EB 

11640 DF 

11641 FE,28 
11643 20,61 

11645 EB 

11646 EB 

11647 18,24 

11649 E5 

11650 DF 

11651 El 

11652 FE,C2 
11654 28,20 
11656 CB,79 
11658 28,52 
11660 CB,71 
11662 20,06 
11664 FE,29 
11666 20,3C 

11668 E7 

11669 C9 

11670 FE,29 
11672 28,6C 
11674 FE,CC 
11676 20,32 

11678 DF 

11679 2B 

11680 22,5D,5C 

11653 18,5E 
11685 21,00,00 
11683 E5' 

11689 E7 

11690 El 

11691 79 

11692 FE,CO 
11694 20,09 

11696 DF' 

11697 FE,29 
11699 28,51 


SV SIMPLE $ 


SV ARRAY 


SV POINTER 
SV COMMA 


SV CLOSE 

SV CHAR ADDR 

SV COUNT 
SV LOOP 


INC HL LENGTH TO BC 

LD C, (HL) 

INC HL 
LD B, (HL) 

INC HL 
EX DE, HL 

CALL 11S38 GET STRING PARAMETERS 
RST 24 GET CHAR 
JP 11783 SV SLICE? 

INC HL SKIP LENGTH 
INC HL 
INC HL 
LD B, (HL) 

BIT 6, C ARRAY? 

JR Z, 15 (11646) SV POINTER 
DEC B 

JR Z, 232 (11615) SV SIMPLE % 

EX DE, HL 

RST 24 GET CHAR 

CP 40 (? 

JR NZ, 97 (11742) ERR 3 
EX DE, HL 
EX DE, HL 

JR 36 (11685) SV COUNT 
PUSH HL 

RST 24 GET CHAR 
POP HL 
CP 44 ","? 

JR Z, 32 (11688) SV LOOP 
BIT 7, C EXECUTE? 

JR Z, 82 (11742) ERR 3 
BIT 6, C STRING ARRAY? 

JR NZ, 6 (11670) SV-CLOSE 
CP 41 )? 

JR NZ, 60 (11728) ERR C 

RST 32 NEXT CHAR 

RET 

CP 41 )? 

JR Z, 108 (11732) SV DIM 
CP 204 TO? 

JR NZ, 50 (11728) ERR C 
RST 24 GET CHAR 
DEC HL 

LD (23645), HL CHAR ADDR 
JR 94 (11783) SV SLICE 
LD HL, O 
PUSH HL 

RST 32 NEXT CHAR 
POP HL 
LD A, C 

CP 192 SYN ARRAY STR 
JR NZ, 9 (11705) SV MULT 
RST 24 GET CHAR 
CP 41 )? 

JR Z, 81 (11782) SV DIM 
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1 1701 

FE, CC 

1 1703 

rr cr 

Cj n QU 

11705 

C5 

1 1706 

E5 

11707 

CD,AC,2E 

11710 

E3 

11711 

EB 

11712 

CD,8A,2E 

1 1715 

38, 19 

11717 

OB 

11718 

CD,B2,2E 

1 1721 

09 

1 1722 

D1 

11723 

Cl 

1 1724 

10, B3 

1 1726 

CB , 79 

1 1728 

20, 66 

11730 

E5 

11731 

CB, 71 

11733 

20, 13 

1 1735 

42 

11736 

4B 

11737 

DF 

11738 

FE, 29 

1 1740 

28,02 

11742 

CF 

11743 

02 

11744 

E7 

11745 

El 

11746 

11,05,00 

11749 

CD,B2,3E 

11752 

09 

1 1753 

C9 


11754 CD,AC,2C 

11757 E3 

11758 CD,B2,2E 

11761 Cl 

11762 09 

11763 23 

11764 42 

11765 4B 

11766 EB 

11767 CD,6F,2E 

11770 DF 

11771 FE,29 
11773 28,07 
11775 FE,2C 
11777 20,DB 
11779 CD,10,2E 

11782 E7 

11783 FE,28 
11785 28,F8 
11787 FD,CB,01,B6 
11791 C9 


SV MULT 


ERR C 


ERR 3 


SV # 


SV ELEM % 


SV SLICE 
SV DIM 
SV SLICE? 


CP 204 TO? 

JR Z, 229 (11678) CHAR ADDR 
PUSH BC 
PUSH HL 

CALL 11948 LD DE 
EX (SP), HL 
EX DE, HL 

CALL 11914 INT EXP-1 
JR C, 25 (11742) ERR 3 
DEC BC 

CALL 11954 GET HL*DE 
ADD HL, BC 
POP DE 
POP BC 

DJNZ, 179 (11649) SV COMMA 

BIT 7, C CK SYNTAX? 

JR NZ, 102 (11832) ERR C 
PUSH HL 

BIT 6, C STRING ARRAY? 

JR NZ, 19 (1754) SV ELEM £ 
LD B, D 
LD C, E 

RST 24 GET CHAR 
CP 41 )? 

JR Z, 2 (11744) SV # 

RST 8 ERROR 

3 Subscript out of ranae 
RST 32 NEXT CHAR- 
POP HL 

LD DE, 5 SLUG NEEDS 5 SPACES 
CALL 11954 GET HL*DE 
ADD HL, BC 
RET 

CALL 11948 LD DE 

EX (SP), HL 

CALL 11954 GET HL*DE 

POP BC 

ADD HL, BC 

INC HL 

LD B, D 

LD C, E • 

EX DE, HL 

CALL 11887 5TK ST O 
RST 24 GET CHAR 
CP 41 )? 

JR Z, 7 (11782) SV DIM 
CP 44 ", "? 

JR NZ, 219 (11742) ERR 3 
CALL 11792 SLICES' 

RST 32 NEXT CHAR 
CP 40 (? 

JR Z, 248 (11779) SV SLICE 
RES 6, (IY+1) STRING ON 

RET 
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SLICING SUBROUTINE 
- 11792 CD,89,28 SLICER 

11795 C4,AF,2F 

11798 E7 

11799 FE,29 
11801 28,50 

11803 B5 

11804 AF 

11805 F5 

11806 C5 

11807 11,01,00 

11810 DF 

11811 El 

11812 FE,CC 
11314 28,17 

11816 FI 

11817 CD,8B,2E 

11820 F5 

11821 50 

11822 59 

11823 E5 

11824 DF 

11825 El 

11826 FE,CC 
11828 28,09 
11830 FE,29 

11832 C2,ED,IB ERR C 

11835 62 

11836 6B 

11837 13,13 

11839 E5 SL 2ND 

11840 E7 

11841 El 

11842 FE,29 
11844 28,OC 

11846 FI 

11847 CD,8B,2E 

11850 F5 

11851 DF 

11852 60 

11853 69 

11854 CP,29 
11856 20,E6 

11858 FI SL DEFINE 

11859 E3 

11860 19 

11861 2B 

11862 E3 

11863 A7 

11864 ED,52 
11866 01,00,00 
11869 38,07 

11871 23 

11872 A7 

11873 FA,DE,2D 


CALL 10377 INTERPRET? 

CALL NZ, 12207 GET STRING PARAM 
RST 32 NEXT CHAR 
CP 41 )? 

JR Z, 80 (11883) SL STORE 
PUSH DE START 
XOR A CLEAR A CARRY 
PUSH AF 

PUSH BC LENGTH 

LD DE, 1 

RST 24 GET CHAR 

POP HL LENGTH IN HL 

CP 204 TO? 

JR Z, 23 (11839) SL-2ND 
POP AF 

CALL 11915 INT EXP-2 
PUSH AF 
LD D, B 
L_D E, C 

PUSH HL SAVE LENGTH 
RST 24 GET CHAR 
POP HL 
CP 204 TO? 

JR Z, 9 (11839) SL-2ND 
CP 41 )? 

JP NZ, 7149 SYN ERR 
LD H, D SLICE OF 1 
LD L, E 

JR 19, (11858) SL DEFINE ' 

PUSH HL 

RST 32 NEXT CHAR 
POP HL 
CP 41 )? 

JR Z, 12 (1185S) SL DEFINE 
POP AF 

CALL 11915 INT EXP-2 
PUSH AF 

RST 24 GET CHAR 
LD H, B 
LD L, C 
CP 41 )? 

JR NZ, 230 (11832) ERR C 

POP AF 

EX (SP), HL 

ADD HL, DE 

DEC HL 

EX (SP), HL 

AND A CLEAR FLAGS 

SBC HL, DE 

LD BC, O 

JR C, 7 (11878) SL-OVER 
INC HL 

AND A CLEAR FLAGS 
JP N, 11743 ERR 3 



1 1876 

44 

11877 

4D 

1 1878 

D1 SL OVER 

1 1379 

FD,CB,01,B6 

1 1883 

CD,89,28 SL STORE 

11886 

C8 

STACK 

STORE SUBROUTINE 

11887 

AF STK ST 0 

11888 

FD,CB,01,B6 

1 1892 

C5 PUT AEDCB 

11893 

CD,68,37 

1 1896 

Cl 

11397 

2A,65,5C 

1 1900 

77 

1 1 90 1 


1 1902 

73 

11903 

OT 

11904 

72 

11905 

-f 

1 1906 

71 

11907 

9*7 

1 1908 

70 

11909 

OT 

1 1910 

22,65,5C 

11913 

C9 


I NT EXP SUBROUTINE 


11914 

AF 

INT EXP—1 

11915 

D5 

INT EXP-2 

11916 

E5 


11917 

F5 


11918 

CD,E5,IB 


11921 

FI 


1 1922 

CD,89,28 


11925 

23, 12 


11927 

E5 


11928 

CD,23,IF 


11931 

D1 


11932 

78 


11933 

B1 


11934 

37 


11935 

28, 05 


11937 

El 


1 1938 

E5 


11939 

A7 


11940 

ED, 42 


11942 

7A 

I-CARRY 

11943 

DE, 00 


11945 

El 

I-RESTORE 

11946 

D1 


11947 

C9 


LD DE 

SUBROUTINE 


11948 

EB 

LD DE 


LD B, H NEW LENGTH TO PC 
LD C, L 
POP DE 

RES 6, (IY+1) STRING ON 

CALL 10377 INTERPRET? 

RET Z 


XOR A CLEAR A CARRY 
RES 6, (IY+1) STRING ON 

PUSH BC 

CALL 14184 TEST 5 SPACE 
POP BC 


LD HL, (23 
LD (HL), A 
INC HL 
LD (HL), E 
INC HL 
LD (HL), D 
INC HL 
LD (HL), C 
INC HL 
LD (HL), B 
INC HL 
LD (23653) 


653) STIC END 

ARRAY FLAG/EXP # 

LOW ADDR/HIGH BYTE 

HIGH ADDR/2ND BYTE 

LOW LEN/3RD BYTE 

HIGH LEN/LAST BYTE 

, HL STK END 


RET 


XOR A CLEAR ERROR REGISTER 
PUSH DE SAVE REGISTERS 
PUSH HL 
PUSH AF 

CALL 7141 TEN 6(EXPECT 1 tt) 
POP AF ERROR FLAG 
CALL 10377 INTERPRET? 

JR Z, 18 (11945) I-RESTORE 
PUSH AF 

CALL 7971 FIX-U (GET INT) 
POP DE 
LD A, B 

OR C BC= O? 

SCF 

JR Z, 5 (11942) I-CARRY’ 

POP HL COPY LIMIT/DIM STZE 
PUSH HL 

AND A CLEAR FLAGS 

SBC HL, DE 

LD A, D 

SBC A, A 

POP HL 

POP DE 

RET 


EX DE, HL 
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INC HL 
LD EE, (HL) 
INC HL 
LD D, (HL) 
RET 


CALL 10377 INTERPRET? 
RET Z 

CALL 13416 MULTIPLY 
JP C, 8143 ERR 4 
RET 


11949 

n”r 

1 1950 

5E 

11951 

n ‘T 

1 1952 

56 

11953 

C9 

GET HL*DE SUBROUTINE 

1 1954 

CD,89,28 GET HL*DE 

1 1957 

C8 

1 1958 

CD,68,38 

11961 

DA,CF,IF 

1 1964 

C9 

LET COMMAND ROUTINE 

1 1965 

2A,4D,5C LET 

1 1968 

FD,CB,37,4E 

1 1972 

28,5E 

11974 

01 , 05 , 00 

11977 

03 EACH CHAR 

11978 

23 # SPACE 

1 1979 

7E 

11980 

FE, 20 

11982 

28, FA 

11934 

30, OB 

11986 

FE, 10 

11988 

38,11 

1 1990 

FE, 16 

11992 

30, OD 

1 1994 

OT 

11995 

18,ED 

1 1997 

CD,46,30 TEST CHAR 

12000 

33, E7 

12002 

FE, 24 

12004 

CA,7E,2F 

12007 

79 SPACES 

12008 

2A,59,5C 

12011 

2B 

12012 

CD,BB,12 

12015 

OT 

12016 

r>T 

12017 

EB 

12018 

D5 

12019 

2A,4D,5C 

12022 

IB 

12023 

D6, 06 

12025 

47 

12026 

28, 11 

12028 

23 L CHAR 

12029 

7E 

12030 

FE, 21 

12032 

38, FA 

12034 

F6,20 

12036 

13 

12037 

12 

12038 

10, F4 


LD HL, (23629) DESTination 
BIT 1, (IY+55) VARIABLE FOUND? 

JR Z, 94 (12068) L EXITS 
LD BC, 5 # NEEDS 5 SPACES 

INC BC ADD 1 EACH CHAR OF NAME 
INC HL 
LD A, (HL) 

CP 32 SPACE? 

JR NZ, 250 (11978) # SPACE 
JR NC, 11 (11997) TEST CHAR 

CP 16 CONTROL CHAR? 

JR C, 17 (12007) SPACES 
CP 22 

JR NC, 13 (12007) SPACES 
INC HL 

JR 237 (11978) ft SPACE 
CALL 12368 ALPHANUM? 

JR C, 231 (11977) EACH CHAR 

CP 36 $? 

JP Z, 12158 NEW $ 

LD A, C LENGTH TO A 
LD HL, (23641) E LINE 
DEC DE 

CALL 4795 INSERT BC SPACES 
INC HL GET TO 1ST NEW BYTE 
INC HL 

EX DE, HL . ' 

PUSH HL 

LD HL, (23629) DESTINATION 
DEC DE 

SUB A, 6 (GIVES NAME LENGTH) 

LD B, A NAME LEN TO B 
JR Z, 17 (12045) L SINGLE 
INC HL FIND 1ST SPACE 

LD A, (HL) (END OF NAME) 

CP 33 !? 

JR C, 250 (12028) L CHAR 
OR 32 MAKE UPPER CASE 
INC DE 
LD (DE), A 

DJNZ, 244 (12028) L CHAR 
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12040 

F6,80 

12042 

12 

12043 

38,80 

12045 

2A,4D„5C 

12048 

AE 

12049 

F6,20 

12051 

El' 

12052 

CD,A8,2F 

12055 

E5 

12056 

EF 

12057 

02 

12058 

TO 

12059 

El 

12060 

01,05,00 

12063 

A7 

12064 

ED, 42 

12066 

18,40 

12068 

FD,CB,01 

12072 

28,06 

12074 

11,06,00 

12077 

19 

12078 

18, E7 

12080 

2A,4D,5C 

12083 

ED,4B,72. 

12087 

FD,CB,37, 

12091 

20 , 30 

12093 

78 

12094 

B1 

12095 

C8 

12096 

E5 

12097 

F7 

12098 

D5 

12099 

C5 

12100 

54 

12101 

5D 

12102 

xL -!'• 

12103 

36,20 

12105 

ED, B8 

12107 

E5 

12108 

CD,AF,2F 

12111 

El 

12112 

E3 

12113 

A7 

12114 

ED, 42 

12116 

09 

12117 

30,02 

12119 

44 

12120 

4D 

12121 

E3 

12122 

EB 

12123 

78 

12124 

B1 

12125 

28,02 

12127 

ED, BO 

12129 

Cl L 


L SINGLE 


L NUMERIC 


76 L EXITS 


L DELETE $ 
5C 
46 


L LENGTH 


WRITE SEQ 


OR 128 PREP MARK LAST LETTER 
LD <DE), A 

LD A, 192 PREP MARK 1ST LETTER¬ 
ED HL, (23629) DEST 
XOR (HL) 

OR 32 MAKE UPPER CASE 
POP HL 

CALL 12200 L FIRST 
PUSH HL 

RST 40 FP CALC 
DELETE 
END FP 
POP HL 
LD BC, 5 

AND A CLEAR FLAGS 
SBC HL, BC 

JR 64 (12132) L ENTER 
BIT 6, (IY+1) # ON? 

JR 2, 6 (12080) L DELETE $ 

LD DE, 6 6 BYTES FOR # 

ADD HL, DE 

JR 231 (12055) L NUMERIC 

LD HL, (23629) DEST 
LD BC, (23666) STR L_EN 
BIT O, (IY+55) SIMPLE $? 

JR N2, 48 (12141) L ADD <$• 

LD A, B 

OR C BC = 0? 

RET Z (EMPTY) 

PUSH HL 

RST 48 INSERT BC SPACES 

PUSH DE 

PUSH BC 

LD D, H 

LD E, L 

INC HL 

LD (HL), 32 SPACE 

LDDR 

PUSH HL 

CALL 12207 GET PARAMETERS 

POP HL 

EX (SP), HL 

AND A CLEAR FLAGS 

SBC HL, BC FIND DIFFERENCE 

ADD HL, BC ADD ABCK 

JR NC, 2 (12121) L LENGTH 

LD B, H 

LD C, L 

EX (SP), HL 

EX DE, HL 

LD A, B 

OR C BC= O? 

JR 2, 2 (12129) L IN WRITE SEQ 

LDIR 

POP BC 
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12130 D1 POP DE 

12131 El .— POP HL 


LET ENTER SUBROUTINE 

12132 EB L ENTER 

12133 78 

12134 B1 

12135 CS 

12136 D5 

12137 ED,BO 

12139 El 

12140 C9 


EX DE, HL 
LD A, B 

OR C BC = 0? 

RET Z (EMPTY) 

PUSH DE 
LDIR 
POP HL 
RET 


LET SUBROUTINE CONTINUED 

12141 

2B 

L ADD 

12142 

2B 


12143 

2B 


12144 

7E 


12145 

E5 


12146 

C5 


12147 

CD, 

84,2F 

12150 

Cl’ 


12151 

El 


12152 

02 


12153 

02 


12154 

02 


12155 

C3, 

50, 17 

12158 

3E, 

DF L NEW 

12160 

2A, 

4D, 5C 

12163 

A6 



DEC HL 
DEC HL 
DEC HL 

LD A, (HL) 1ST LETTER OF NAME 
PUSH HL 
PUSH BC 

CALL 12164 L STRING 

POP BC 

POP HL 

INC BC 

INC BC 

INC BC STEP OVER LETTER S< LEN 

JP 5968 DELETE RECORD 

'LD A, 223 PREP TO MARK NAME 

LD HL, (23629) DEST 

AND (HL.) 


LET STRING SUBROUTINE 

12164 F5 L STRING 

12165 CD,AF,2F 

12168 EB 

12169 09 

12170 C5 

12171 2B 

12172 22,4D,5C 

12175 03 

12176 03 

12177 03 

12178 2A,59,5C 

12181 2B 

12182 CD,BB,12 
12185 2A,4D,5C 

12188 Cl 

12189 C5 

12190 03 

12191 ED,B8 

12193 EB 

12194 23 

12195 Cl 

12196 70 

12197 2B 


PUSH AF 

CALL 12207 GET PARAMETERS 

EX HL, DE 

ADD HL, BC 

PUSH BC 

DEC HL 

LD (23629), HL UPDATE DEST 
INC BC SKIP LETTER S< LENGTH 
INC BC 
INC BC 

LD HL, (23641) E LINE 
DEC HL 

CALL 4795 INSERT BC SPACES 
LD HL, (23629) DEST 
POP BC 
PUSH BC 
INC BC 
LDDR 

EX DE, HL 
INC HL 
POP BC 
LD (HL), B 
DEC HL 


INSERT LEN 




12198 71 

12199 FI 


LD (HL), C 
POP AF 





LET F 

I RST SI 

UBROUTINE 

12200 

2B 


L FIRST 

12201 

77 



12202 

2A, 59 

, 5C 


12205 

2B 



12206 

C9 



STACK 

FETCH 

SUE 

3ROUTINE 

12207 

2ft, 65, 

, 5C 

GET PARAM(STK 

12210 

2B 



12211 

46 



12212 

2B 



12213 

4E 



12214 

2B 



12215 

56 



12216 

2B 



12217 

5E 



12218 

2B 



12219 

7E 



12220 

22,65, 

,5C 


j OO'T'T 

C9 



DIM COMMAND 

ROUTINE 

12224 

CD,70, 

2C 

DIM 

■[ r? ^ "7 

C2,ED, 

18 

DIM REPT C 

12230 

CD,89, 

o 


12233 

20,08 



12235 

BC, B1 



12237 

CD,54, 

2D 


12240 

CD,44, 

IB 


12243 

38,08 


DIM RUN 

12245 

C5 



12246 

CD,20, 

17 


12249 

CD,50, 

17 


1 O cr '-i 

X 

Cl 



12253 

CB,F9 


D-LETTER 

12255 

06,00 



12257 

C5 



1 OOcrn 

x v_* U J 

21,01, 

00 


12261 

CB , 71 



12263 

20 , 02 



12265 

2E, 05 



12267 

EB 


D SIZE 

12268 

E7 


D # LOOP 

12269 

26, FF 



12271 

CD,8A, 

2E 


12274 

DA , DE , 

2D 


12277 

El 



12278 

C5 



12279 

24 



12280 

E5 



12281 

60 




DEC HL AT OLD MARKER 
LD (HL), A 

LD HL, (23641) E LINE 

DEC HL 

RET 


FETCH) LD HL, (23653) STK END 
DEC HL 
LD B, (HL) 

DEC HL 
LD C, (HL) 

DEC HL 
LD D, (HL) 

DEC HL 
LD E, (HL) 

DEC HL 
LD A, (HL) 

LD (23653), HL STK END 
RET 


CALL 11376 FIND N(LOOK VARS) 

JP NZ, 7149 SYN ERR 
CALL 10377 INTERPRET? 

JR NZ, 8 (12243) DIM RUN 
RES 6, C ASSUME NUMERIC 
CALL 11604 STK VAR 
CALL 6980 END? 

JR C, 8 (12253) D-LETTER 
PUSH BC 

CALL 5920 RECORD LENGTH (NEXT .1) 
CALL 5968 DELETE RECORD 
POP BC 

SET 7, C ARRAY/FOR BIT ON 
LD B, O 
PUSH BC 

LD HL, 1 • ' 

BIT 6, C STRING ARRAY? * 

JR NZ, 2 (12267) D SIZE 

LD L, 5 

EX DE, HL 

RST 32 NEXT CHAR 

LD H, 255 

CALL 11914 INT EXP-1 

JP C, 11742 ERR 3 

POP HL 

PUSH BC 

INC H 

PUSH HL 

LD H, B 
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122S2 

69 

12283 

CB,B2,3 

12236 

EB 

12287 

DF 

12288 

FE,2C 

1 2290 

28, E8 


FE, 29 

12294 

20, BB 

12296 

E 7 

12297 

Cl 

12298 

7 C ? 

12299 

68 

12300 

26,00 

12302 


12303 

2 3 

12304 

29 


12305 19 

12306 DA,CF,IF 

12309 D5 

12310 C5 

12311 E5 

12312 44 

12313 4D 

12314 2A,59, 5C 


12318 

CD,BB,12 

12321 

'■■y —f 

i '*0 T r- > 

77 

1 OTO-t 

Cl 

12324 

OB 

12325 

OB 

12326 

OB 

12327 

OT 

12328 

71 

12329 

OT 

12330 

70 

12331 

Cl 

12332 

78 

12333 

OT 

12334 

77 

12335 

62 

12336 

6B 

12337 

IB 

12338 

36,00 

12340 

CB, 71 

12342 

28,02 

12344 

36,20 

12346 

Cl 

12347 

ED, B8 

12349 

Cl 

12350 

70 

12351 

2B 

12352 

71 

12353 

2B 

12354 

3D 


DIM CLEAR- 
DIM SIZES 


LD L, C 

CALL 11954 GET HL*DE 
EX DE, HL 
RST 24 GET CHAR 
CP 44 " , ••? 

JR Z, 232 (12268) D 4 LOOP 
CP 41 )? 

JR NZ, 187 (12227) ERR C 

RST 24 GET CHAR 

POP BC 

LD A, C 

LD L, B 

LD H, O 

INC HL DETERMINE LENGTH 

INC HL 
ADD HL, HL 
ADD HL, DE 

JP C, 8143 ERR 4 (OUT OF RAM) 
PUSH DE 


PUSH BC 
PUSH HL 
LD B, H 
LD C, L 

LD HL, (23641) E 
DEC HL 

CALL 4795 INSERT 
INC HL 
LD (HL), A 
POP BC 


LINE 

BC SPACES 


DEC BC 
DEC BC 
DEC BC 
INC HL 
LD (HL), 
INC HL 
LD (HL), 
POP BC 
LD A, B 
INC HL 
LD (HL), 
LD H, D 
LD L, E 
DEC DE 
LD (HL), 
BIT 6, C 


C ENTER LENGTH 
B 

A # OF DIMENSIONS 

t 

4 

Q 

STRING? 


JR Z, 2 (12346) DIM CLEAR SPACE 
LD (HL), 32 SPACE 
POP BC 
LDDF: 


POP BC 


LD (HL), B ENTER SIZE 
DEC HL 
LD (HL), C 
DEC HL 

DEC A COUNT 
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12355 

20, F3 

JR NZ, 

12357 

C9 

RET 

ALPHANUM SUBROUTINE 

12358 CD,D9,30 ALNUM? 

CALL 1 

12361 

3F 

CCF 

12362 

D8 

RET C 

ALPHA 
1 2363 

SUBROUTINE 

FE,41 ALPHA 

CP 65 

12365 

3F 

CCF 

12366 

DO 

RET NC 

| 2 ! \ 7 

FE, 5B 

CP 91 

12369 

D8 

RET C 

12370 

FE ,61 

CP 97 

12372 

3F 

CCF 

12373 

DO 

RET NC 

12374 

FE, 7B 

CP 123 

12376 

C9 

RET 

DECIMAL TO FLOATING POINT SUBROUTINE 

12377 

FE,C4 DEC TO FP (SKT 

UNS) CP 1 

12379 

20, 19 

JR Z, 

12381 

11 , 00 , 00 

LD DE, 

12384 

E7 BIN DIGET 

RST 32 

1 OTQq 
x O _J 

D6,31 

SUB 49 

1 0707 

J. •_< / 

CE , 00 

ADC A, 

12389 

20,0 A 

JR NZ, 

12391 

EB 

EX DE, 

12392 

3F 

CCF 

12393 

ED, 6A 

ADC HL 

12395 

DA,6C,35 

JP C, 

12398 

EB 

EX DE, 

12399 

18, EF 

JR 239 

12401 

42 BIN END 

LD b, : 

12402 

4B 

LD C, 1 

12403 

C3,E9,30 

JP 125: 

12406 

FE,2E DEC TO FP (NOT 

BIN) CP 4, 

12408 

28, OF 

JR Z, 

12410 

CD,F9,30 

CALL i: 

12413 

FE, 2E 

CP 46 

12415 

20,28 

JF: NZ, 

12417 

E7 

RST 32 

12418 

CD,D9,30 

CALL i: 

12421 

38,22 

JR C, : 

12423 

18,0 A 

JR 10 

12425 

E7 DECIMAL 

RST 32 

12426 

CD,D9,30 

CALL i: 

12429 

DA,ED,IB ERR C? 

JP c, • 
RST 40 

12432 

EF 

12433 

AO 

STK 0 

12434 

38 

END FP 

12435 

EF DEC STORE 1 

RST 40 

12436 

A1 

STK 1 

12437 

CO 

STORE 


505 DIGET' 


A? 


E FORMAT 


(12457) E FORMAT 
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12438 

12439 

12440 

12441 
12444 

12446 

12447 


02 

38 

DF 

CD,E0,30 
38, OB 
EF 
EO 


NEXT DIGET-1 


12448 A4 


12449 

05 


12450 

CO 


12451 

04 


12452 

OF 


12453 

38 


12454 

E7 


12455 

18, 

EF 

12457 

FE, 

45 

12459 

oo 

03 

12461 

FE, 

65 

12463 

CO 


12464 

06 , 

FF 

12466 

E7 


12467 

FE, 

2B 

12469 

28, 

05 

12471 

FE, 

2D 

12473 

20, 

02 

12475 

04 


12476 

E7 


12477 

CD, 

D9 

12480 

TO 
■— —‘ , 

CB 

12482 

C5 


12483 

CD, 

F9 

12486 

CD, 

93 

12489 

Cl 


12490 

DA, 

6C 

12493 

A7 


12494 

FA, 

6C 

12497 

04 


12498 

28, 

02 

12500 

ED, 

44 

12502 

C3, 

OD 


E FORMAT 


SIGN FLAG 


SIGN DONE 
STK E PART 


xEy JUMP 


DELETE 
END FP 

RST 24 GET CHAR 

CALL 12512 STK DIGET 

JR C, 11 (12457) E FORMAT 

RST 40 FP CALC 

GET MEM 0 

STK 10 

DIVIDE 

STORE IN MEM O 

MULTIPLY 

ADD 

END FP 

RST 32 NEXT CHAR 

JR 239 (12440) NEXT DIGET-1 

CP 69 E? 

JR Z, 3 (12464) SIGN FLAG 
CP 101 e? 

RET NZ 

LD B, 255 (-*-} 

RST 32 NEXT CHAR 
CP 45 " + "? 

JR Z, 5 SIGN DONE 

jpp. ii_H 

JR NZ, 2 (12477) STK E PART 
INC B =0 = 

RST 32 NEXT CHAR 
CALL 12505 DIGET? 

JR C, 203 (12429) SYN ERR 
PUSH BC 

CALL 12537 INT TO FP 
CALL 12691 FP TO A 
POP BC 

JP C 13676 ERR 6 
AND A CLEAR FLAGS 
JP N, 13676 ERR 6 
INC B 

JR Z, 2 (12502) xEy JUMP 
NEG 

JP 12557 xEy 


NUMERIC SUBROUTINE 




12505 FE,30 

DIGET? 

CP 48 

0? 

12507 DS 


RET C 

BELOW 0 

12508 FE,3A 


CP 58 

9? 

12510 3F 


CCF 

RESET IF # 

12511 C9 


RET 



STACK DIGET SUBROUTINE 
12512 CD,D9,30 STK DIGET 

12515 DS 

12516 D6,30 


CALL 12505 DIGET? 
RET C 

SUB 48 CODE TO # 


STK A LD C, A 


STACK A SUBROUTINE 
12518 4F 


USES BC WITH B=0 
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12519 

06 , 00 

STACK- 

BC SUBROUTINE 

12521 

FB,21,3A,5C 

12525 

AF 

12526 

5F 

12527 

51 

. c- 

J. x-J jL. 

48 

12529 

47 

12530 

CD,74,2E 

12533 

EF 

12534 

38 

i ncTcr 

1 XL -_J O -_J 

A7 

1 Oer-T L. 

J. 

C9 


LD B, O 


LD IY, 23610 RESET IY 

XOR A CLEAR A ?< CARRY 

LD E, A =0 ONLY C D 

LD D, C LOW BYTE ARE USED 

LD C, B HIGH BYTE 

LD B, A =0 

CALL 11892 PUT AEDCB 

RST40 FP CALC HL = SKT END -5 

END FP 

AND A CLEAR FLAGS 
RET 


INTEGER TO FLOATING POINT SUB 

12537 

F5 INT TO FP 

12538 

EF 

12539 

AO 

12540 

38 

12541 

FI 

12542 

CD,EO,30 NEXT DIGET-2 

12545 

DS 

12546 

EF 

12547 

01 

12548 

A4 

12549 

04 

12550 

OF 

12551 

38 

12552 

CD,74,00 

12555 

IS,FI 


ROUTINE 
PUSH AF 

RST 40 FP CALC 
STK O 
END FP 
POP AF 

CALL 12512 STK DIGET 
RET C 

RST 40 FP CALC 

EXCHANGE 

STK 10 

MULTIPLY 

ADD 

END FP 

CALL 74 (RST 74) UPD-KEYBOARD 
JR 241 (12542) NEXT DIGET-2 


ARITHMETIC ROUTINES 
E FORMAT TO FLOATING POINT SUBROUTINF 


12557 07 xEy E FORMAT # 

1255S OF (OFFSET 60(30 

12559 30,02 

12561 2F 

12562 3C 

12563 F5 E SAVE 

12564 21,92,5C 
12567 CD,26,39 

12570 EF 

12571 A4 

12572 38 

12573 FI 

12574 CB,3F E LOOP 


RLC A TEST SIGN(BIT 7) 

RRC A RESTORE A 

JR NC, 2 (12563) E SAVE 

CF'L NEG M IN A WITHOUT CHANGING 

INC A CARRY FLAG 

PUSH AF 

LD HL, 23698 MEM BOTTOM 

CALL 14630 FP O OR 1 

RST 40 FP CALC 

STK 10 

END FP 

POP AF 

SRL A 


12578 F5 

12579 EF 

12580 Cl 

12581 EO 

12582 00,04 
12584 04 


JR NC, 13 (12591) E TEST END 
PUSH AF 

RST 40 FP CALC 
STK TO MEM 1 
GET MEM O 

JUMP IF TRUE, 4 (12587) DIVIDE 
MULTIPLY 


12585 33,02 


JP 2 (12588) E FETCH 
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12587 

05 E DIVISION 

12588 

E1 E FETCH 

12589 

“TO 

12590 

FI 

12591 

28,08 

12593 

F5 

12594 

EF 

12595 

31 

12596 

04 

12597 

38 

12598 

FI 

12599 

18, E5 

12601 

EF E END 

12602 

02 

12603 

"TO 

12604 

C9 

INTEGER FETCH SUBROUTINE 

1 2605 

23 LD DE (INT FETCH) 

12606 

4E 

12607 

OT 

12608 

7E 

12609 

A9 

12610 

91 

12611 

5F 

12612 

O "T 

12613 

7E 

12614 

89 

12615 

A9 

12616 

57 

12617 

C9 

INTEGER STORE SUBROUTINE 

12618 

OE,00 INT STORE(STK DE-U) 

12620 

E5 STK DE-S 

12621 

36,00 

12623 

n T 

12624 

71 

12625 

OT 

12626 

7B 

12627 

A9 

12628 

91 

12629 

77 

12630 

OT 

12631 

7A 

12632 

89 

12633 

A7 

12634 

77 

12635 

OT 

12636 

36,00 

12638 

El' 

12639 

C9 

FLOATING POINT TO BC SUBROUTINE 

12640 

EF FP TO BC 


DIVIDE 
GET MEM 1 
END FP 
POP AF 

JR Z, 8 (12601) E END 
PUSH AF 

RST 40 FP CALC 

DUPLICATE 

MULTIPLY 

END FP 

POP AF 

JR 229 (12574) E LOOP 

RST 40 FP CALC 

DELETE 

END FP 

RET 


INC HL 

LD C, (HL) SIGN 
INC HL 

LD A, (HL) LOW BYTE 
XOR C 2 COMP IF NEG 

SUB C 

LD E, A SAVE IN E 
INC HL 
LD A, (HL) 

ADC A, C 2 COMP IF NEG 
XOR C 

LD D, A TO D 
PFT 


LD C, 0 POSITIVE # ENTRY POINT 
PUSH HL 

LD (HL), 0 1ST BYTE =0 
INC HL 

LD (HL), C SIGN 
INC HL 

LD A, E LOW BYTE 
XOR C 2 COMP IF NEG 
SUB C 

LD (HL), A PUT BYTE 
INC HL 

LD A, D HIGH BYTE 

ADC A, C 2 COMP IF NEG 

XOR C 

LD (HL), A HIGH BYTE 
INC HL 

LD (HL), O LAST BYTE 

POP HL 

RET 


RST 40 FP CALC 




12641 

38 

12642 

7E 

12643 

A 7 

12644 

28, 05 

12646 

EF 

12647 

A 2 

12648 

OF 

12649 

27 

12650 

38 

12651 

EF 

12652 

02 

12653 

T O 

12654 

E5 

12655 

D5 

12656 

12657 

EB 

46 

12658 

CD, 3D 

12661 

AF 

12662 

90 

12663 

CB, 79 

12665 

42 

12666 

4B 

12667 

7B 

12668 

D1 

12669 

El 

12670 

C9 
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END FP SET HL AT LAST # 
LD A, (HL) 

AND A CLEAR FLAGS 

JR Z, 5 (12651) FP DELETE 

RST 40 FP CALC 

STK 1/2 ROUND THE NUMBER 

ADD 

I NT 

END FP 

DELETE RST 40 FP CALC 
DELETE 
END FP 
PUSH HL 
PUSH DE 
EX DE, HL 
LD B, (HL) 

CALL 12605 LD DE (GET INT) 
XOR A CLEAR A Z< CARRY 
SUB B 

BIT 7, C SET Z IF + 

LD B, D 
LD C, E 
LD A, E 
POP DE 
POP HL 
RET 


LOG (2 ""A) SUBROUT INE 

12671 57 GET EXP (LOG (2"'A) 

12672 17 

12673 9F 

12674 5F 

12675 4F 

12676 AF 

12677 47 

12678 CD,74,2E 
126S1 EF 

12682 34 

12683 EF,1A,20,9A,85 

12688 04 

12689 27 

12690 38 

FLOATING POINT TO A SUBROUTINE 

12691 CD,60,31 FP TO A 

12694 D8 

12695 F5 

12696 05 

12697 04 

12698 28,0 

12700 FI 

12701 37 

12702 C9 

12703 FI 

12704 C9 


LD D, A 

RL A TEST BIT 7 

SBC A, A IF + AS 00,00,A 

LD E, A IF - AS 00,FF,A 

LD C, A 

XOR A 

LD B, A 

CALL 11892 PUT AEDBC 
RST 40 FP CALC 
STK DATA 

EXP 7F,+lA,+20,+9A,+85 
MULTIPLY 
I NT 

END FP 


CALL 12640 FP TO BC 
RET C 
PUSH AF 

DEC B B MUST BE O 
INC B 

JR Z, 3 (12703) FPA END 

POP AF 

SCF 

RET 

POP AF 
RET 


00,00 
FF, 00 


FPA END 
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PR 1 NT 

A FLOATING 

POINT NUMBER 

12705 

EF PRINT 

FP (OUTPUT) 

1 2706 

31 


12707 

36 


12708 

00, OB 


12710 

31 


1271 1 

•j? / 


12712 

00 , OD 


1 27 1 4 

02 


12715 

38 


12716 

3E, 30 


12718 

D7 


127 19 

C9 


12720 

2 A 

PF-NEG 

12721 

38 


^ o -r o r> 

3E,2D 


12724 

D7 


12725 

EF 


12726 

AO 

PF-POS 

12727 

C3 


12728 

C4 


12T29 

C5 


12730 

02 


12731 

38 


12732 

D9 


12733 

E5 


12734 

D9 


12735 

EF 

PF LOOP 

12736 

rr ^ 

1 


12737 

27 


12738 

02 


12739 

03 


12740 

E2 


12741 

01 


12742 

C2 


12743 

02 


12744 

38 


12745 

7E 


12746 

A7 


12747 

20 , 48 


12749 

CD,3D,31 


12752 

06, 10 


12754 

7h 


12755 

A7 


12756 

20, 06 


12758 

B3 


12759 

28,09 


12761 

c r-y 

U -2* 


12762 

06, 08 


12764 

D5 

PF SAVE 

12765 

D9 


12766 

D1 


12767 

D9 


12768 

18,58 



SUBROUTINE 
RST 40 FP CALC 
DUPLICATE 
TEST <0 

JUMP IF TRUE, 11 (12720) PF-NEG 

DUPLICATE 

TEST >0 

JUMP IF TRUE, 14 (12726) PF-POS 

DELETE 

END FP 

LD A, 48 "0" 

RST 16 PRINT CHAR 

RET 

ABS 

END FP 
LD A, 45 

RST 16 PRINT CHAR 
RST 40 FP CALC 
STK O 

STK TO MEM 3 

STK TO MEM 4 

STK TO MEM 5 

DELETE 

END FP 

EXX 

PUSH HL 
EXX 

RST 40 FP CALC 
DUPLICATE 
I NT - 

STK TO MEM 2 
SUBTRACT 
GET MEM 2 
EXCHANGE 
STK TO MEM 2 
DELETE 
END FP 
LD A, (HL) 

AND A CLEAR FLAGS 

JR NZ, 72 (12821) PF LARGE 

CALL 12605 LD DE 

LD B, 16 COUNT 

LD A, D 

AND A CLEAR FLAGS 

JR NZ, 6 (12754) PF SAVE 

OR E DF = 0? 

JR Z, 9 (12770) PF SMALL 
LD D, E 

LD B, 8 REDUCE COUNT TO 8 

PUSH DE 

EXX 

POP DE 
EXX 

JR 88 (12858) PF BITS 




12770 

ef 

12771 

02 

12772 

p r> 

12773 

38 

12774 

7E 

12775 

D6,7E 

12777 

CD,7F,31 

12780 

57 

12781 

3A,AC,5C 

12784 

92 

12785 

32,AC,5C 

12788 

7 A 

12789 

CD,OD,31 

| r> 7 O "7 

EF 

12793 

31 

12794 

27 

J 07QCJ 

C1 

12796 

03 

12797 

El 

12798 

38 

12799 

CD,93,31 

12302 

E5 

12803 

32,A1,5C 

12806 

3D 

12807 

17 

12808 

9F 

12809 

3C 

12810 

21 ,AB,5C 

12813 

77 

12314 


12815 

86 

12316 

77 

12817 

El 

12818 

C3,8E,32 

12821 

D6,80 

12823 

FE, 1C 

12825 

38, 13 

12827 

CD,7F,31 

12830 

D6,07 

12832 

47 

12833 

21,AC,5C 

12836 

86 

12837 

77 

12838 

78 

12839 

ED, 44 

12841 

CD,OD,31 

12844 

18,91 

12846 

EB 

12847 

CD,79,33 

12850 

D9 

12851 

CB, FA 

12853 

7D 

12854 

D9 

12855 

D6,80 

12857 

47 


PF SMALL 


PF LARGE 


PF MEDIUM 
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RST 40 FP CALC 
DELETE 
GET MEM 2 
END FP 
LD A, (HL) 

SUB 126 TRUE EXPONENT +2 
CALL 12671 GET EXPONENT 
LD D, A 

LD A, (23724) MEM 5, 2ND POSN 
SUB D 

LD (23724), A 
LD A, D 
CALL 12557 xEy 
RST 40 FP CALC 
DUPLICATE 
I NT 

STK TO MEM 1 
SUBTRACT 
GET MEM 1 
END FP 

CALL 12691 FP TO A 
PUSH HL 

LD (23713), A MEM 3, POSN 1 
DEC A 

RL A TEST BIT 7 
SBC A, A 
INC A 

LD HL, 23723 MEM 5, POSN 1 

LD (HL), A 

INC HL 

ADD A, (HL) 

LD (HL), A 
POP HL 

JP 12942 PF FRACTION 
SUB 128 TRUE EXP 
CP 28 EXPC28 

JR C, 19 (12846) PF MEDIUM 
CALL 12671 GET EXPONENT 
SUB 7 
LD B, A 

LD HL, 23724 MEM 5, POSN 2 
ADD A, (HL) 

LD (HL), A 
LD A, B 
NEG 

CALL 12557 xEy 

JR 145 (12735) PF LOOP 

EX DE, HL 

CALL 13177 GET 2 #S 
EXX 

SET 7, D 
LD A, L 
EXX 

SUB 128 TRUE EXPONENT 
L-D B, A 
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12858 

CB,23 

FT BITS 

SLA E 

128.60 

CB, 12 


RL D 

12862 

09 


EXX 

1 2863 

CB, 12 


RL E 

12365 

CB, 13 


RL D 

12367 

09 


EXX 

12368 

21 ,AA,5C 


LD HL, 23722 MEM 4, F'QSN 5 

12871 

0E, 05 


LD C, 5 COUNT 5 

12873 

7E 

FT BYTES 

L.D A , (HL) 

12374 

8F 


ADC A, A 

12875 

XL / 


DAA 

12876 

_-,_7 


LD (HL), A 

12377 

2B 


DEC HL 

12878 

00 


DEC C 

12879 

20, F8 


JR NZ, 248 (12873) PF BYTES 

12881 

10, E7 


DJNZ, 231 (12858) PF BITS 

12833 

AF 


XOR A CLEAR A 3: CARRY 

12384 

21,A6,5C 


LD HL, 23718 MEM 4 

12887 

11,A1,5c 


LD DE, 23713 MEM 3 

12890 

06,09 


LD B, 9 MAX DIGITS 

12892 

ED , 6F 


RL D 

12894 

OE, FF 


LD C, 255 LEADING 0 

12396 

E0,6F 

FT DIGITS 

RL D 

12898 

20,04 


JR NZ, 4 (12904) PF INSERT 

12900 

00 


DEC C 

12901 

oc 


INC C 

12902 

20, OA 


JF: NZ, 10 (12914) PF TEST-2 

12904 

12 

FT INSERT 

LD (DE), A 

12905 

13 


INC DE 

12906 

FD,34,71 


INC (IY+113) MEM 5, 1ST POSN 

12909 

FD,34,72 


INC (IY+114) MEM 5, 2ND POSN 

12912 

OE, 00 


LD C, 0 OTHER 0 

12914 

CB, 40 

FT TEST-2 

BIT 0, B B ODD? 

12916 

28,01 


JR Z, 1 (12919) PF ALL 0 

12918 

23 


INC HL 

12919 

10, E7 

FT ALL 0 

DJNZ, 231 (12896) PF DIGITS 

12921 

3A,AB,5C 


LD A, (23725) MEM 5, POSN 1 

12924 

06, 09 


SUB 9 CK # OF DIGITS 

12926 

38, OA 


JR C, 10 (12938) FT MODE 

12928 

FD,35,71 


DEC (IY+113) MEM 5, POSN 1 

12931 

3E, 04 


LD A, 4 

12933 

FD,BE,6F 


CP (IY+111)MEM 4,POSN 4 ROUND 

12936 

18,41 


JR 65 (13003) PF ROUND 

12938 

EF 

FT MODE 

RST 40 FP CALC 

12939 

02 


DELETE 

12940 

E2 


GET MEM 2 

12941 

38 


END FP 

12942 

EB 

PF FRACTION 

EX DE, HL 

12943 

CD,79,33 


CALL 13177 GET 2 #S 

12946 

09 


EXX 

12947 

3E, 80 


LD A, 128 EXPONENT = 0 

12949 

95 


SUB L 

12950 

2E, 00 


LD L, 0 

12952 

CB, FA 


SET 7, D 

12954 

D9 


EXX 



12955 CD,9C,33 

12958 FD,7E,71 PF FRACT LOOP 
12961 FE,08 
12963 38,06 

12965 D9 

12966 CB,12 

12968 D9 

12969 18,20 

12971 01,00,02 PF FRACT DIGIT 

12974 7B PF FRACT EXPON 

12975 CD,4A,33 

12978 5F 

12979 7A 

12980 CD,4F,33 

12983 57 

12984 C5 

12985 D9 

12986 Cl 

12987 10,FI 
12989 21,A1,5C 

12992 79 

12993 FD,4E,71 

12996 09 

12997 77 

12998 FD,34,71 
13001 18,D3 

13003 F5 PF ROUND 

13004 21,A1,5C 
13007 FD,4E,71 
13010 06,00 

13012 09 

13013 41 

13014 FI 

13015 2B PF ROUND LOOP 

13016 7E 

13017 CE,00 

13019 77 

13020 A7 

13021 28,05 
13023 FE,0A 

13025 3F 

13026 30,08 

13028 10,FI PF ROUND BACK 
13030 36,01 

13032 04 

13033 FD,34,72 
13036 FD,70,71 

13039 EF 

13040 02 

13041 38 

13042 D9 

13043 El 

13044 D9 

13045 ED,4B,AB,5C 
13049 21,A1,5C 


CALL 13212 SHIFT FP 

LD A, (IY+113) MEN 5, POSN 1 

CP 8 

JR C, 6 (12971) PF FRACT DIGIT 

EXX 

RL D 

EXX 


JR 

T “7* 

( 1 

300 

3) 

PF ROUND 

LD 

BC 

, B 

“ 

COUNT 

LD 

A, 

e 




CAL 

_L 

131 

30 

CA= 

10*A+C 

LD 


A 




LD 

A ? 

D 




CALL 

131 

30 

CA= 

10*A+C 

LD 

D, 

A 





PUSH BC 
EXX 

POP BC 

DJNZ, 241 (12974) PF FRACT EXPON 

LD HL, 23713 MEM 3, POSN 1 
LD A, C 

LD C, (IY+113) MEM 5, POSN 1 
ADD HL, BC 
LD (HL), A 

INC (IY+113) MEM 5, POSN 1 
JR 211 (12958) PF FRACT LOOP 

PUSH AF 

LD HL, 23713 MEM 3, POSN 1 

LD C, (IY+113) MEM 5, POSN 1 

LD B, 0 

ADD HL, BC 

LD B, C 

POP AF 

DEC HL 

LD A, (HL) 

ADC A, 0 

LD (HL), A 

AND A CLEAR FLAGS 

JR Z, 5 (13028) PF ROUND BACK 

CP 10 LAST DIGIT O ? 

CCF 

JR NC, 8 (13036) PF COUNT' 

DJNZ, 241 (13015) PF ROUND LOOP 

LD (HL), 1 

INC B 

INC (IY+114) MEM 5, POSN 2 

INC (IY+113) MEM 5, POSN 1 

RST 40 FP CALC 

DELETE 

END FP 

EXX 

POP HL 
EXX 

LD BC, (23723) MEM 5, POSN 1 
LD HL, 23713 START OF NUMBERS 
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13052 73 

13053 FE,09 
13055 38,04 
13057 FE,FC 
13059 33,26 

13061 A7 PF NOT E 

13062 CC,EA,11 

13065 AF PF E SUBROUTINE 

13066 90 

13067 FA,11,33 

13070 47 

13071 18,OC 

13073 79 PF OUT LOOP 

13074 A7 

13075 28,03 

13077 7E 

13078 23 

13079 9D 

13080 CD,EA,11 PF OUT DIGIT 
13083 10,F4 

13085 79 

13086 A7 

13087 C8 

13088 04 

13089 3E,2E 

13091 D7 

13092 3E,30 
13094 10,FB 

13096 41 

13097 18,E6 

13099 50 

13100 15 

13101 06,01 
13103 CD,09,' 

13106 3E,45 

13108 D7 

13109 4A 

13110 79 

13111 A7 

13112 F2,42,' 

13115 ED,44 

13117 4F 

13118 3E,2D 
13120 18,02 
13122 3E,2B 

13124 D7 

13125 06,00 
13127 C3,88, 

CA = 10*A+C SUBROUTINE 

13130 D5 CA = 10*A+C 

13131 6F 

13132 26,00 

13134 5D 

13135 54 


LD A, B 

CP 9 MORE THAN 9 DIGITS? 

JR C, 4 <13061) PF NOT E 

CP 252 MORE THAN 4 LEADING 0 

JR C, 38 <13099) PF E FORMAT 

AND A CLEAR FLAGS 

CALL Z, 4586 PUT DIGIT 

XOR A CLEAR A & CARRY 

SUB B 

JP N, 13073 PF OUT LOOP 
LD B, A 

JR 12 <13085) PF DECIMAL 
LD A, C 

AND A CLEAR FLAGS 

JR Z, 3 <13080) FP OUT DIGIT 

LD A, <HL) 

INC HL 
DEC C 

CALL 4586 PUT DIGIT 

DJNZ, 244 <13073) FP OUT LOOP 

LD A, C 

AND A CLEAR FLAGS 
RET Z 
INC B 

LD A, 46 "." 

RST 16 PRINT CHAR 
LD A, 48 "0" 

DJNZ, 251 (13091) PF DEC O’S 

LD B, C 

JR 230 (13073) FP OUT LOOP 
LD D, B 
DEC D 

LD B, 1 DIGIT BEFORE DEC POINT 
CALL 13065 PF E SUBROUTINE 
LD A, 69 "E" 

RST 16 PRINT CHAR 
LD C, D 
LD A, C 

AND A CLEAR FLAGS 
JP P, 13122 FP E-POS 
NEG 

LD C, A 
LD A, 45 

JR 2 (13124) PF EXP SIGN 
LD A, 43 "+" 

RST 16 PRINT CHAR 
LD B, O 

JP 6024 PUT BC 


PUSH DE 
LD L, A 
LD H, O 
LD E, L 
LD D, H 


PF DECIMAL 


PF DEC O’S 


PF E FORMAT 


PF E-NEG 


PF E-POS 
PF EXP SIGN 



X 10 


13136 29 

13137 29 

13138 19 

13139 29 

13140 59 

13141 19 

13142 4C 

13143 7D 

13144 D1 

13145 C9 

PREPARE TO ADD SUBROUTINE 

13146 7E PREP ADD 

13147 36,00 

13149 A7 

13150 C8 

13151 23 

13152 CB,7E 
13154 CB,FE 

13156 2B 

13157 C8 

13158 C5 

13159 01,05,00 

13162 09 

13163 41 

13164 4F 

13165 37 

13166 2B NEG BYTE 

13167 7E 

13168 2F 

13169 CE,00 

13171 77 

13172 10, F8 

13174 79 

13175 Cl 

13176 C9 


ADD HL, HL 
ADD HL, HL 
ADD HL, DE 
ADD HL, HL 
LD E, C ADD C 

ADD HL, DE 

l-D C, H OVERFLOW TO H 

LD A, L # TO A 

POP DE 
RET 


LD A, (HL) EXPONENT 
LD (HL), O ASSUME + 

AND A CLEAR FLAGS 

RET Z 

INC HL 

BIT 7, (HL) 

SET 7, (HL) 

DEC HL 
RET Z 

PUSH BC SAVE EXPONENT 

LD BC, 5 NEED 5 SPACES 

ADD HL, BC 

LD B, C 

LD C, A 

SCF 

DEC HL =255 = NEGATIVE 
LD A, (HL) 

CF'L ONES COMP 

ADC A, 0 
LD (HL), A 

DJNZ, 248 (13166) NEG BYTE 
LD A, C 
POP BC 
RET 


FETCH TWO NUMBERS SUBROUTINE 

HL AT 1ST BYTE #1, DE AT 1ST BYTE #2 


RETURNS WITH 1ST IN H’,B’,C : 

13177 E5 GET 2 #' 

13178 F5 

13179 4E 

13180 23 

13181 46 

13182 77 

13183 23 

13184 79 

13185 4E 

13186 C5 

13187 23 

13188 4E 

13189 23 

13190 46 

13191 EB 


, C,B; 2ND IN L’,D J ,E’ ,D,E 
PUSH HL. 

PUSH AF 
LD C, (HL) 

INC HL 
LD B, (HL) 

LD (HL), A 
INC HL 
LD A, C 
LD C, (HL) 

PUSH BC 
INC HL 
LD C, (HL) 

INC HL 
LD B, (HL) 

EX DE, HL 


140 


1 3192 

57 

LD D , A 

13193 

5E 

LD E , (HL) 

13194 

D5 

PUSH DE 

13195 


INC HL 

13196 

C- • 

V-J O 

LD D, (HL) 

13197 

n -?■ 

INC HL 

13198 

5E 

LD E ? (HL) 

13 199 

D5 

PUSH DE 

13200 

D9 

EXX 

13201 

D1 

POP DE 

13202 

FI 

POP HL 

13203 

Cl 

POP BC 

13204 

D9 

EXX 

13205 


INC HL 

13206 

56 

LD D, (HL) 

13207 

o r 

INC HL 

13208 

5E 

LD E, (HL) 

13209 

FI 

POP AF 

13210 

El 

POP HL 

1321 1 

C9 

RET 

SHIFT 

ADDEND SUBROUTINE 

(TO 32 DECIMAL) 


FOR ADDING/SUBTRACTING # THAT DIFFER BY MORE THAN 20 (HEX) F'OSNS 


13212 

A7 SHIFT 

ADDEND (SHIFT 

FP) AND A 

CLEAR FLAGS 

13213 

C8 


RET Z (NO 

DIFF IN EXP) 

13214 

FE, 21 


CP 33 


13216 

30, 16 


JR NC, 22 

(13240) ADD END 0 

13218 

C5 


PUSH BC 


13219 

47 


LD B, A 


13220 

D9 

ONE SHIFT 

EXX 


13221 

CB,2D 


SRA L 


13223 

CB, 1A 


RR D 


13225 

CB, IB 


RR E 


13227 

D9 


EXX 


13228 

CB , 1A 


RR D 


13230 

CB, 1B 


RF; E 



10, F2 


DJNZ, 242 

(13220) ONE SHIFT 

13234 

Cl 


POP BC 


13235 

DO 


RET NC 


13236 

CD,C3,33 


CALL 1325 

1 ADD BACK 

13239 

CO 


RET NZ 

, t 

13240 

D9 

ADD END 0 

EXX 

13241 

AF 


XOF; A CLEAR A 2< CARRY 

13242 

2E, 00 

ZERO 4/5 

LD L, 0 


13244 

57 


LD D, A 


13245 

5D 


LD E, L 


13246 

D9 


EXX 


13247 

11,00,00 


LD DE, 0 


13250 

C9 


RET 


ADD BACK SUBROUTINE 



13251 

1C 

ADD BACK 

INC E 


13252 

CO 


RET NZ 


13253 

14 


INC D 


13254 

CO 


RET NZ 
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13255 D9 

13256 1C 

13257 20,01 

13259 14 

13260 D9 

13261 C9 


EXX 
INC E 
JR NZ, 
INC D 

ALL ADD EXX 
RET 


( 


SUBTRACTION OPERATION 

13262 EB SUBTRACT(OFFSET 3) EX DE, HL 

13263 CD,2D,38 CALL 14381 


ADDITION 

13266 

13267 

13268 

13269 

13271 

13272 93 

13273 E5 

13274 23 

13275 5E 

13276 23 

13277 56 

13278 23 
1327 / 9 23 

13280 23 

13281 

13282 

13283 

13284 

13285 

13286 

13287 

13288 

13289 

13290 

13291 


EB 
1A 
B6 

20,26 

D5 


OPERATION 
ADD(OFFSET 


15(OF)) 


7E 


4E 


46 

El 

EB 

09 

EB 

8E 

OF 


13292 CE, 00 
13294 20,OB 


9F 

77 


13296 

13297 

13298 2Z 

13299 72 

13300 23 

13301 

13302 

13303 

13304 

13305 


72 

2B 
2B 
2B 
D1 


ADD OVERFLOW 


13306 C9 

13307 2B 

13308 D1 

13309 CD, 52,36 FULL ADDITIOI' 

13312 D9 

13313 E5 


EX 

DE, 

HL 

LD 

A, 

(DE) 

OR 

(HL 

) 

JR 

NZ, 

38 i 

PUSH DE 

INC 

HL 


PUSH HL 

INC 

HL 


LD 

E, 

(HL) 

INC 

HL 


LD 

D, 

(HL) 

INC 

HL 


INC 

HL 


INC 

HL 


LD 

A, 

(HL) 

INC 

HL 


LD 

c, 

(HL) 

INC 

HL 


LD 

B, 

(HL) 

POP 

HL 


EX 

DE, 

HL 

ADD 

HL 

, BC 

EX 

DE, 

HL 

ADC 

A, 

(HL) 

RRC 

A 


ADC 

A, 

0 

JR 1 

NZ, 

1 1 ( 

SBC 

A, 

A 

LD 

(HL 

) , A 

INC 

HL 


LD 

(HL 

) , E 

INC 

HL 


LD 

(hl: 

> , D 

DEC 

HL 


DEC 

HL 


DEC 

HL 


POP 

DE 


RET 



DEC 

HL 


POP 

DE 


CALL 13906 

EXX 



PUSH HL 


3260) ALL ADD 


NEGATE 


(13309) FULL ADDITION 


13307) ADD OVERFLOW 


RESTACK TWO 
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13314 

D9 

13315 

D5 

13316 

E5 

13317 

CD , 5A 

13320 

47 

13321 

EB 

J 7700 

CD, 5A 

. --r- ~r ✓-j mr 

1 -j-jiJ 

4F 

13316 

B8 

13327 

30 , 03 

13329 

78 ’ 

13330 

41 

13331 

EB 

13332 

F5 

13333 

90 

13334 

CD, 79 

13337 

CD, 9C 

13340 

FI 

13341 

El 

13342 

77 

13343 

E5 

13344 

68 

13345 

61 

13346 

19 

13347 

D9 

1334S 

EB 

13349 

ED, 4A 

13351 

EB 

13352 

7C 

13353 

8D 

13354 

6F 

13355 

IF 

13356 

AD 

13357 

D9 

13358 

EB 

13359 

El 

13360 

IF 

13361 

30,08 

13363 

3E , 01 

13365 

CD, 9C 

13368 

34 

13369 

28., 23 

13371 

D9 

13372 

7D 

13373 

E6, SO 

13375 

D9 

13376 

OT 

13377 

77 

13378 

2B 

13379 

28, IF 

13381 

7B 

13382 

ED , 44 

13384 

3F 

13385 

5F 

13386 

7A 


EXX 

PUSH DE 
PUSH HL 

CALL 13146 PREP ADD 
LD B, A 
EX DE, HL 

CALL 13146 PREP ADD 
LD C, A 
CP B 

JR NC, 3 (13332) SHIFT LEN 
LD A, B 
LD B, C 
EX DE, HL 

SHIFT LEN PUSH AF 
SUB B 

CALL 13177 GET 2 # 

CALL 13212 SHIFT FP 

POP AF 

POP HL 

LD (HL), A 

PUSH HL 

LD L, B 

LD H, C 

ADD HL, DE 

EXX 

EX DE, HL 
ADC HL, BC 
EX DE, HL 
LD A, H 
ADC A, L 
LD L, A 
RR A 
XOR L 
EXX 

EX DE, HL 
POP HL 
RR A 

JR NC, S (13371) TEST NEG 
LD A, 1 

CALL 13212 SHIFT FP 
INC (HL) 

JR Z, 35 (13406) ADD REP-6 
TEST NEG EXX 

LD A, L 

AND 128 CK BIT 7 NEGATIVE? 
EXX 
INC HL 
LD (HL), A 
DEC HL 
JR Z, 31 
LD A, E 
NEG 
CCF 

LD E, A 
LD A, D 


(13412) GO NC-MLT 
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133S7 

2 F 


13388 

ce:, oo 


13380 

5F 


13391 

D9 


13392 

7B 


13393 

2 F 


13394 

CE, 00 


13396 

5F 


13397 

7 A 


13398 

3F 


13399 

CE , 00 


1340 1 

30,07 


13403 

IF 


13404 

D9 


13405 

34 


13406 

CA,6C,35 

ADD REP -6 

13409 

D9 


13410 

57 

END COMP 

13411 

D9 


13412 

AF 

GO NC MET 

13413 

C3,14,35 


MULTIPLY (HL*DE) 

SUBROUTINE 

13416 

C5 MULTIPL 

Y <HL*DE) 

13417 

06, 10 


13418 

7C 


13420 

4D 


13421 

21 , 00 „ 00 


13424 

29 

MULT LOOP 

13425 

38,0 A 


13427 

CB, 11 


13429 

17 


13430 

30,03 


13432 

19 


13433 

38,02 


13435 

10 , F3 

AGAIN 

13437 

Cl 

M END 

13438 

C9 



CP L ONES COMP 
ADC A, O 
LD E, A 
EXX 

LD A, E 

CPL ONES COMPLIMENT 
ADC A , U 
LD E, A 
LD A, D 

CPL ONES COMPLIMENT 
ADC A, 0 

JR NC, 7 (13412) END COMPLIEMENT 

RR A 

EXX 

INC (HL) 

JP Z, 13676 ERR 6 
EXX 

LD D, A 
EXX 

XQR A CLEAR A CARRY 
JP 135S8 TEST NORM 


PUSH BC 

LD B, 16 COUNT 
LD A, H 
LD C, L 
LD HL, O 
ADD HL, HL 

JR C, 10 (13437) M END 
RL C 
RL A 

JR NC, 3 813435) AGAIN 
ADD HL, DE 

JR C, 2 (13437) M END 

DJNZ, 243 (13424) MULT LOOP 

POP BC 

RET 


PREPARE TO MULTIPLY OR DIVIDE SUBROUTINE 


13439 CD,04,39 

13442 DS 

13443 23 

13444 AE 

13445 CB,FE 

13447 2B 

13448 C9 


PREP M/D CALL 14596 TEST 0 
RET C 
INC HL 
XOF; (HL) 

SET 7, (HL) TRUE BIT 

DEC HL 

RET 


MULTIPLICATION OPERATION 

13449 1A TIMES (OFFSET 4) 

13450 B 6 

13451 20,22 

13453 D5 

13454 E5 

13455 D5 


LD A, (DE) 

OR (HL) 

JR NZ, 34 (13437) MULT-LONG 
PUSH DE SAVE 2ND POINTER 
PUSH HL SAVE 1ST POINTER 
PUSH DE SAVE 2ND POINTER 





13456 

CD, 

3D 

1 3459 

EB 


13460 

E3 


13461 

41 


13462 

CD, 

3D 

13465 

78 


13466 

A9 


13467 

4F 


13468 

El 


13469 

CD, 

68 

13472 

EB 


13473 

El 


13474 

38, 

O A 

13476 

7 A 


13477 

B3 


13478 

20, 

01 

13480 

4F 


13481 

CD, 

4C 

13484 

D1 


13485 

C9 


13486 

D1 


13487 

CD, 

52 

13490 

AF 


13491 

CD, 

7F 

13494 

D8 


13495 

D9 


13496 

E5 


13497 

D9 


13498 

D5 


13499 

EB 


13500 

CD, 

79 

13503 

EB 


13504 

38, 

5A 

13506 

E5' 


13507 

CD, 

79 

13510 

78 


1351 1 

A7 


13512 

ED, 

62 

13514 

D9 


13515 

E5 


13516 

ED, 

62 

13518 

D9 


13519 

06, 

21 

13521 

1 o 

i , 

11 

13523 

30, 

05 

13525 

19 


13526 

D9 


13527 

ED, 

5 A 

13529 

D9 


13530 

D9 


13531 

CB, 

1C 

13533 

CB, 

ID 

13535 

D9 


13536 

CB, 

1C 

13538 

CB, 

ID 


31 


31 


34 


31 MULT RESULT 


MULT OVERFLOW 
MULT LONG 


34 


MULT LOOP 
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CALL 12605 LD DE (GET INT) 

EX DE, HL 
EX (SP), HL 
LD B, C 

CALL 12605 LD DE (GET INT) 

LD A, B 
XOR C 
LD C, A 
POP HL 

CALL 13416 MULT HL*DE 
EX DE, HL 
POP HL 

JR C, 10 (13486) MULT OVERFLOW 
POP DE 
OR E 

JR NZ , 1 (13481) MULT RESULT 

LD C, A 

CALL 12620 STK DE U 

POP DE 

RET 

POP DE 

CALL 13906 RESTACK TWO 
XOR A CLEAR A S< CARRY 
CALL 13439 PREP M/D 
RET C 
EXX 

PUSH HL 
EXX 

PUSH DE 
EXX 

CALL 13439 PREP M/D 
EX DE, HL 

JR C, 90 (13596) RESULT = 0 
PUSH HL 

CALL 13177 GET 2 # 

LD A, B 

AND A CLEAR FLAGS 
SBC HL, HL HL = 0 
EXX 

PUSH HL 

SBC HL, HL HL = 0 
EXX 

LD B, 33 COUNT 33 SHIFTS 
JR 17 (13540) STRAIGHT MULT 
JR NC, 5 (13530) NO ADD 
ADD HL, DE 
EXX 

ADC HL, DE 

EXX 

EXX 

RR H 

RR L 

EXX 

RR H 

RR L 


NO ADD 



1 


13540 D9 STRAIGHT MULT 

13541 CB,IS 
13543 CB,19 

13545 D9 

13546 CB,19 

13548 IF 

13549 10,E4 

13551 EB 

13552 D9 

13553 EB 

13554 D9 

13555 Cl 

13556 El 

13557 78 

13558 81 

13559 20,01 

13561 A7 

13562 3D CALC EXPONENT 

13563 3F 

13564 17 DIVISIVN EXPONENT 

13565 3F 

13566 IF 

13567 F2,05,35 
1 •-» 5 7 o ■ o, 63 

13572 A7 

13573 3C OVERFLOW CLEAR 

13574 20,08 
13576 38,06 
13573 D9 
13579 CB,7A 
13581 D9 
13532 20,5C 

13584 77' OVERFLOW CLEAR-2 

13585 D9 

13586 73 

13587 D9 

13588 30,15 

13590 7E 

13591 A7 

13592 3E,80 
13594 28,01 

13596 AF’ 

13597 D9 

13598 A2 

13599 CD,BA,33 

13602 07 

13603 77 

13604 38,2E 

13606 23 

13607 77 

13608 2B 

13609 18,29 
13611 06,20 

13613 D9 

13614 CB,7A 


EXX 
RR B 
RR C 
EXX 
RR C 
RR A 

DJNZ, 228 (13525) MULT LOOP 
EX DE, HL 
EXX 

EX DE, HL 
EXX 

POP BC ADD EXPONENT 
POP HL 
LD A, B 
ADD A, C 
JR NZ, 1 (13562) CALC EXPONENT 

AND A CLEAR FLAGS 
DEC A 
CCF 
RL A 
CCF 
RR A 

JR P 13573 OVERFLOW CLEAR 
JR NC, 104 (13676) ERR 6 
AND A CLEAR FLAGS 
INC A 

JR NZ, 8 (13584) OVERFLOW CLEAR 
JR C, 6 (13584) OVERFLOW CLEAR- 
EXX 

BIT 7, D NORMAL FORM? 

EXX 

JR NZ, 92 (13676) ERR 6 

LD (HL), A 

EXX 

LD A, B 
EXX 

JR NC, 21 (13610) NORMALIZE 

LD A , (HL) 

AND A CLEAR FLAGS 
LD A, 128 EXP = 0 
JR Z, 1 (13597) SKIP O 

XOR A CLEAR A 

EXX i 

AND D 

CALL 13242 ZEROS 4/5 
RLC A 

LD (HL), A 

JR C, 46 (13652) OVERFLOW CLEAR¬ 
ING HL 
LD (HL), A 
DEC HL 

JR 41 (13652) OVERFLOW CLEAR 

LD B, 32 COUNT 32 

EXX OR 

BIT 7, D UNTIL BIT 7 SET 


TEST NORM 

NEAR O 

RESULT =0 
SKIP O 


NORMALIZE 
SHIFT 1 


14 ^ 


13616 

D9 


EXX 

13617 

20, 12 

,— 

JR NZ, 18 (13637) NORMAL NOW 

136.19 

07 


RLC A 

13620 

CB, 13 


RL E 

13622 

CB, 12 


RL D 

13624 

D9 


EXX 

13625 

CB, 13 


RL E 

13627 

CB, 12 


RL D 

13629 

D9 


EXX 

13630 

re 


DEC (HL) 

13631 

28, 07 


JR Z, 215 (13592) NEAR 0 

13633 

10, EA 


DJNZ , 234 (13613) SHIFT 1 

13635 

18, 07 


JR 215 (13596) RESULT = 0 

13637 

17 

NORMAL NOW 

RL A 

13638 

30 , OC 


JR NC, 12 (13652) OVERFLOW CLEAR 

13640 

CD , C3 , 

33 

CALL 13251 ADD BACK 

13643 

20 , 07 


JR NZ, 7 (13652) OVERFLOW CLEAR 

13645 

09 


EXX 

13646 

16,80 


LD D, 128 

13648 

09 


EXX 

13649 

34 


INC (HL) 

13650 

28, IS 


JR Z, 24 (13676) ERR C 

13652 

E5 

OVERFLOW CLEAR 

PUSH HL 

13653 



INC HL 

13654 

09 


EXX 

13655 

05 


PUSH DE 

13656 

09 


EXX 

13657 

Cl 


POP BC 

13658 

70 

/ 


LD A, B 

13659 

17 


RL A 

13660 

CB, 16 


RL (HL) 

13662 

IF 


RR A 

13663 

77 


LD (HL), A STORE # 

13664 



INC HL 

13665 

71 


LD (HL), C 

13666 



INC HL 

13667 

72 


LD (HL), D 

13663 



INC HL 

13669 

~r ~r 
/ 


LD (HL), E 

13670 

El 


POP HL 

13671 

D1 


POP DE 

13672 

D9 


EXX 

13673 

El 


POP HL 

13674 

D9 


EXX 

13675 

C9 


RET 

13676 

CF 

ERR 6 

RST 8 ERROR 

13677 

05 


6 Number too big 


DIVISION OPERATION 

13678 CD,52,36 DIVIDE(OFFSET 

13681 EB 

13682 AF 

13683 CD,7F,35 
13636 38,F4 
13683 EB 


5) CALL 13906 RESTAK TWO 
EX DE, HL 

XOR A CLEAR A FOR SIGN 1ST # 
CALL 13439 PREP M/D 
JR C, 244 (13676) ERR 6 
EX DE, HL 
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1 3689 

CD. 

7F , 34 


CALL 13439 PREP M/D 

13692 

DS 



RET C 

13693 

09 



EXX 

13694 

E5 



PUSH ML 

13695 

09 



EXX 

. 1 . 3696 

05 



PUSH DE 

1 "T /_ Q “7 

E5 



PUSH HL 

J. 3698 

CD, 

"7 0 ~*r 

* •* 1 *— * •— 4 


CALL 13177 GET 2 # 

1370 1 

09 



EXX 

13702 

fj 3 



PJ jC;U Uj 

1 3703 

60 



LD H, B 

13704 

69 



LD L, C 

13705 

09 



E X X 

13706 

1. -1 

\.j j. 



LD H, C 

13707 

68 



LD L . B 

3 3708 

Ah 



XuR h CLEAR A CARRY 

;} 3709 

06, 

OF 


LD B, 223 COUNT -33 

1 37 1 1 

1 0 

j. , 

10 


JR 16 (13726) DIVIDE START 

1371 3 

1 7 


DIV LOOP 

R L A 

1 3714 

CB, 

1 1 


RL C 

13716 

09 



EXX 

1.3717 

CB, 

1 1 


RL C 

13719 

CB, 

10 


RL B 

13721 

09 



EXX 

1 ~T ~7 

29 


DIV 34TH 

ADD HL, HL_ 

13723 

09 



EXX 

13724 

ED, 

6 A 


ADC HL, HL 

13726 

D9 


DIVIDE START 

EXX 

13727 

TO 

10 


JR C, 16 (13745) SUB # ONL. 

13729 

ED, 

cr'*? 


SBC HL, DE 

13731 

09 



EXX 

13732 

ED, 

cr 


SBC HL, DE 

13734 

09 



EXX 

13735 

30, 

OF 


JR NC, 15 <137525 # RESTOR 

13737 

19 



ADD HL, DE 

j 3770 

09 



EXX 

13739 

ED, 

5A 


ADC HL, DE 

13741 

09 



EXX 

13742 

A 7 



AND A CLEAR A L CARRY 

13743 

1 8 , 

08 


JR 8 < 13753) COUNT 1 

13745 

/\ —T 

M / 


SUB # ONLY 

AND A CLEAR A 

13746 

ED, 

cr 


SBC HL, DE • ‘ 

13748 

09 



EXX 

13749 

ED, 

cr 


SBC HL, DE 

•f T’-rnr -j 

09 



EXX 

1 3752 

7 “7 


# RESTORE 

SCF 

1 3733 

04 


COUNT 1 

INC B 

13754 

FA, 

91,35 


JP N, 13713 DIVIDE LOOP 

13757 

F5 



PUSH AF 

13758 

•“ 0 

DA 


JR Z, 218(214) (13722) DIV 

13760 

5F 



LD E, A 

13761 

51 



LD D, C 

13762 

D9 



EXX 

13763 

59 



LD E, C 
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13764 

50 


LD D, B 

13765 

FI 


POP AF 

13766 

CB, 18 


RR B 

1376S 

FI 


POP AF 

13769 

CB, 18 


RR B 

13771 

D9 


EEX X 

13772 

Cl 


POP BC 

13773 

El 


POP HL 

13774 

78 


LD A, B 

13775 

91 


SUB C 

13776 

CD,FC,34 


,JP 13564 DIVIDE EXPONENT 

INTERGER TRUNCATE 

TO ZERO SUBROUTINE 

13779 

7E TRUNCATE 

(OFFSET 53 

<3A)) LD A, (HL) 

13780 

7A 


AND A CLEAR FLAGS 

13781 

C8 


RET Z 

13782 

FE, 81 


CP 129 EXPONENT = 1? 

13784 

30 , 06 


JR NC, 6 (13792) T->0 

13786 

36 ,00 


LD (HL), 0 SET EXP = 0 

13738 

3E , 20 


LD A, 32 COUNT 

13790 

18,51 


JR 81 (13873) NIL BYTES 

13792 

FE , 91 

T—>0 

CP 145 NEED E FORMAT? 

13794 

20, 1A 


JR NZ, 26 (13322) T-SMALL 

13796 



INC HL !!ERROR!! 13796-13821 

SHOULD BE ELIMINATED AS THEY 

CHECK -65536 WHICH IS UNNECESSAR 

13797 

OT 


INC HL 

13798 

OT 


INC HL 

13799 

3E, 80 


LD A, 128 EXP 0 

13801 

A6 


AND (HL) 

13802 

2B 


DEC HL 

13803 

B6 


OR (HL) 

13804 

2B 


DEC HL 

13805 

20, 03 


JR NZ, 3 (13810) T-FIRST 

13807 

3E, 80 


LD A, 128 

13809 

AE 


XOR (HL) 

13810 

2B 

T-FIRST 

DEC HL 

13811 

20,36 


JR NZ, 54 (13867) T EXPONENT 

13813 

77 


LD (HL), A 

13S14 



INC HL 

13815 

36, FF 


LD (HL), 255 

13817 

2B 


DEC HL 

13818 

3E, 18 


LD A, 24 

13820 

18,33 


JR 51, (13873) NIL BYTES 

13822 

30,2C 

T-SMALL 

JR NC, 44 (13868) X LARGE 

13824 

D5 


PUSH DE 

13825 

2F 


CP L CHANGE RANGE TO 15-0 

13826 

C6, 91 


ADD A, 125 

13828 

n-?- 
xL -J* 


INC HL 

13829 

56 


LD D, (HL) 

13830 

n "t 


INC HL 

13831 

5E 


LD E, (HL) 

13832 

2B 


DEC HL 

13833 

2B 


DEC HL 

13834 

OE, 00 


LD C, 0 

13836 

CB, 7A 


BIT 7, D NEGATIVE? 
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13838 

23,01 


13840 

OD 


13841 

CB, FA 

T-NUMERIC 

13843 

06,08 


13845 

90 


13846 

80 


13847 

33,04 


13849 

5A 


13850 

16,00 


13852 

90 


13853 

28,07 

T TEST 

13855 

47 


13856 

CB, 3A 

T SHIFT 

13858 

CB, IB 


13860 

10, FA 


13862 

CD,4C,31 

T STORE 

13365 

D1 


13866 

C9 


13867 

7E 

T EXPONENT 

13868 

Do, AO 

X LARGE 

13870 

FO 


13871 

ED, 44 


13873 

D5 

NIL BYTES 

13874 

EB 


13875 

2B 


13876 

47 


13877 

CB, 38 


13879 

CB, 38 


13881 

CB, 38 


13883 

28,05 


13335 

36,00 

BYTE 0 

13887 

2B 


13838 

10 , FB 


13890 

E6, 07 

BITS 0 

13892 

28, 09 


13894 

47 


13895 

3E,FF 


13897 

CB, 27 

LESS MASK 

13399 

10, FC 



13901 A6 

13902 77 

13903 EB IX END 

13904 D1 

13905 C9 


JR Z, 1 (13341) T--NUMERIC 

DEC C 

SET 7, D INSERT TRUE BIT 
LD B, S 
SUB B 
ADD A, B 

JR C, 4 (13353) T TEST 
LD E, D 
LD D, 0 
SUB B 

JR Z, 7 (13862) T-STORE 
L D B, A 
SRL D 
RR E 

DJNZ, 250 (13856) T SHIFT 
CALL 12620 STK DE U 
POP DE 
RET 

LD A, (HL) 

SUB A, 160 
RET P 
NEG 

PUSH DE 
EX DE, HL 
DEC HL 
LD B, A 
SRL B 
SRL B 
SRL B 

JR Z, 5 (13890) BITS O 
LD (HL >,O 
DEC HL 

DJNZ, 251 (13885) BYTE O 

AND 7 

JR Z, 9 (13903) IX END 
LD A, 255 PREPARE MASK 
LD (HL), A 
SLA A 

DJNZ, 252 (13897) LESS MASK 
AND (HL) 

LD (HL), A 
EX DE, HL 
POP DE 
RET 


RESTACK TWO SUBROUTINE 
13906 CD,55,36 RESTACK TWO 
1390V EB RESTACK SUB 

RESTACK SUBROUTINE 

13910 7E E TO FP(RESTACK FP) 

13911 A7 

13912 CO 

13913 D5 

13914 CD,3D,31 


CALL 13909 RESTACK SUB 
EX DE, HL 


(OFFSET 61(3D)) LD A, (HL) 

AND A CLEAR FLAGS 
RET NZ 
PUSH DE 

CALL 12605 LD DE (GET INT) 
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13917 

AF 


13918 

f ~y~r 


13919 

77 


1 3920 

2 B 


13921 

77 


13922 

06,91 


13924 

7A 


13925 

A7 


13926 

20 , 08 


13928 

B3 


13929 

42 


13930 

28, 10 


13932 

53 


13933 

58 


13934 

06 , 89 


13936 

EB RS NORMALIZE 

13937 

05 

RS LOOP 

13938 

29 


13939 

30, FC 


13941 

CB, 09 


13943 

CB, 1C 


13945 

CB, ID 


13947 

EB 


13948 

2B 

LD # 

13949 

73 


13950 

2B 


13951 

70 


13952 

2B 


13953 

70 


13954 

D1 


13955 

C9 

FLOATING 

CONSTANT TABLE 


13956 

00,BO,00 


13959 

40,BO, 00 , 01 


13963 

30, 00 


13965 

F1,49,OF,DA,A2 


13970 

40,BO,00,OA 


FLOATING POINT ADDRESS TABLE 

ADDR 

OFFSET# JUMP 

ADDRESS 

13974 

00 ( 00 ) AA, 3 A 

(15018) 

13976 

01(01) FB,37 

(14331 > 

13978 

02 ( 02 ) 60,37 

(14176) 

13980 

03(03) CE , 33 

(13262) 

13982 

04(04) 89,34 

(13449) 

13984 

05(05) 6 E ,35 

(13678) 

13936 

06(06) 6C,3C 

(15486) 

13988 

07(07) 36,39 

(14655) 

13990 

08(08) 3F,39 

(14655) 

13992 

09(09) 56,39 

(14678) 

13994 

10(OA) 56,39 

(14678) 

13996 

11(OB) 56,39 

(14678) 

13998 

12(00 56,39 

(14678) 


XOR A CLEAR A S< CARRY 

INC HL - 

LD (HL), A 

DEC HL 

LD (HL), A 

LD B, 145 

LD A, D 

AND A CLEAR FLAGS 
JR NZ, 8 (13936) NORMALIZE 
OR E 
LD B, D 

JR Z, 16 (13948) LD # 

LD D, E 
LD E, B 
LD B, 137 
EX DE,HL 
DEC B 

ADD HL, HL 

JR NC, 252 (13937) RS LOOP 
RRC C 
RR H 
RR L 

EX DE,HL 
DEC HL 
LD (HL), E 
DEC HL 
LD (HL), D 
DEC HL 
LD (HL), B 
POP DE 
RET 


POINT CALCULATOR 


STK 

0 

00 ,00,00,00,00 

STK 

1 

00 ,00,01,00,00 

STK 

1/2 

80,00,00,00,00 

STK 

PI/2 

81,49,OF,DA,A2 

STK 

10 

00 ,00,OA,00,00 


FUNCTION 

JP IF TRUE 

EXCHANGE 

DELETE 

SUBTRACT 

TIMES 

DIVIDE 

TO THE 

OR 

AND 

# =< # 

# => # 

# <> # 

# > # 
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j. 4000 

13(OD) 

56,39 

(14678) 

# < # 

1 4002 

14(OE) 

56,39 

( 14678) 

tt = # 

1 4004 

15(OF) 

D3, 33 

(13265) 

ADD 

1 4006 

16(10> 

48,39 

(14664) 

£ AND # 

1 4008 

17(11) 

56,39 

(14678) 

rt- _ 

1401 0 

18(12) 

56,39 

( 14678) 

~ \ 

14012 

19 (13) 

56,39 

(14678) 

^ O 

1 401 4 

20(14) 

56,39 

(14678) 

S > 

J. 4016 

21C15) 

56,39 

(14678) 

dt 

-K 

14018 

22(16) 

56,39 

(14678) 

^ = 

14020 

23(17) 

B7,39 

(14775) 

STRING ADD 

14022 

24(18) 

F9,39 

(14841> 

VAL$ 

1 4024 

25 (19) 

D7,38 

(14551> 

USR$ 

1 4026 

26 (1A) 

60 ,3 A 

(14944) 

READ IN 

j. 4028 

27(IB) 

2D, 38 

(14381) 

NEGATE 

14030 

28 < 1C > 

84,3A 

( 14980) 

CODE 

14032 

29(ID) 

F9,39 

(14841) 

VAL 

14034 

30(IE) 

3F,3A 

(14991) 

LEN 

14036 

31(IF) 

DO, 3B 

(15312) 

81N 

14038 

32(20) 

C5,3B 

(15301) 

COS 

14040 

33(21) 

F5, 3B 

(15349) 

TAN 

14042 

34(22) 

4E, 3C 

<15438) 

ASN 

14044 

35(23) 

5E,3C 

(15456) 

ACS 

14046 

36(24) 

5D,3B 

(15357) 

AIN 

1 4048 

37(25) 

2E,3B 

(15150) 

LN 

14050 

38.(26) 

DF, 3 A 

(15071) 

EXP 

14052 

39(27) 

CA, 3A 

(15050) 

I NT 

14054 

40(28) 

65,3C 

(15461) 

SQR 

14056 

41(29) 

51,38 

(14417) 

SGN 

14058 

42(2A) 

29,38 

(14377) 

ABS 

14060 

43(2B) 

6 B, 38 

(14443) 

PEEK 

14062 

44 (20 

64,38 

(14436) 

IN 

14064 

45(2D) 

72,38 

(14450) 

URS # 

14066 

46(2E) 

■-•A, oft 

(14906) 

S'TR$ 

1 4068 

47(2F) 

E4,39 

(14820) 

CHR$ 

14070 

48(30) 

1C,39 

(14620) 

NOT 

14072 

49(31) 

7F, 37 

(14195) 

DUPLICATE (MOVE FP) 

14074 

50(32) 

BB,3A 

(15035) 

N MOD M (INT DIV) 

14076 

51(33) 

A1,3A 

(15009) 

JUMP 

14078 

52(34) 

85,37 

(14213) 

STK DATA 

14080 

53(35) 

95, 3A 

(14997) 

DJNZ 

14082 

54(36) 

21,39 

(14625) 

TEST <0 

14084 

55(37) 

14,39 

(146215 

TEST >0 

14086 

56(38) 

B6,3A 

(15030) 

END FP 

14088 

57(39) 

9E, 3B 

(15262) 

GET ARG (ANGLE) 

14090 

58(3A) 

D3,35 

(13779) 

TRUNCATE 

14092 

59(3B) 

61,37 

(14177) 

FP CALC 2 

14094 

60 (30 

OD , 31 

(12557) 

xEy 

14096 

61(3D) 

56,36 

(13910) 

E TO FP (RESTACK) FLOAT 

14098 


08,38 

(14344) 

SERIES GEN 86H,88H,SCH(06,08,OC) 

14100 


DA, 37 

(14298) 

STK CONS A0=0,Al=l,A2=l/2,A3=PI/2 

14102 


EC, 37 

(14316) 

STORE IN MEM (C0-C5) A4=10 

14104 


CE, 37 

(14286) 

GET MEM (E0-E5) 


CALCULATE SUBROUTINE 
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1 4106 

CD, 

DA,39 FP CALC 

1 4 109 

78 

GEN ENT-1 

141 10 


67,5C 

14113 

D9 

GEN ENT-2 

14114 

E3 


14 115 

D9 


14116 

ED, 

53 , 65,5C REENTRY 

14120 

D9 


1 4 121 

7E 


14122 

■ r v : r 


14123 

E5 

SCAN ENT 

1 4 124 

/\ •“7 

M / 


1 41 25 

F2 , 

TIT T “7 

*—*' , i 

14128 

57 


14129 

E6 , 

60 

14131 

OF 


1 4132 

OF 


14133 

OF 


14134 

OF 


14135 

C6 , 

7C 

1 4137 

6F 


14138 

7 A 


14139 

E6, 

IF 

14141 

18 , 

OE 

14143 

FE, 

18 1ST 61 

14145 

30, 

08 

14147 

D9 


14148 

01, 

FB, FF 

1 4151 

54 


14152 

5D 


14153 

09 


14154 

D9 


14155 

07 

DOUBLE A 

14156 

6F 


1 4157 

11 , 

96,36 ENTER TABLE 

14 160 

26, 

00 

14162 

19 


14163 

5E 


14164 



14165 

56 


14166 

21, 

24,37 

14169 

E3 


14170 

D5 


14171 

D9 


14172 

ED, 

4B,66,5C 

DELETE SUBROUTINE 


CALL 14810 STK POINTERS 
LD B, A 

LD (23655) O, A BREG 
EXX 

EX (SR), HL 
EXX 

LD (23653), DE STK END 
EXX 

LD A, (HL) 

INC HL 
PUSH HL 

AND A CLEARFLAGS 
JP P, 14143 1ST 61 
LD D, A 

AND 96 SAVE BITS 5 S< 6 

RRC A MOVE DOWN TO BITS 1 ?< 2 

RRC A 

RRC A 

RRC A 

ADD A, 124 
LD L, A 
LD A, D 

AND 31 MASK 5 LOW BITS 
JR 14 (14157) ENTER TABLE 
CP 24 

JR NC, 8 (14155) DOUBLE A 
EXX 

LD BC, 65531 = -5 

LD D, H 

LD E, L 

ADD HL, BC 

EXX 

RLC A 

LD L, A 

LD DE, 13974 ADDR TABLE 
LD H, O 
ADD HL, DE 
LD E, (HL) 

INC HL 
LD D, (HL) 

LD HL,14116 REENTER 
EX (SP), HL 
PUSH DE 
EXX 

LD BC, (23654) B REG/HI STK BYTE 


DELETE RET 

SINGLE OPERATION SUBROUTINE 

14177 FI FP CALC 2(OFFSET 59(3B)) POP AF 

14178 3A,67,5C LD A, (23655) B REG 

14181 D9 EXX 

14182 18,3C JR 195 (14123) SCAN ENTRANCE 



1 53 


TEST 

5 SPACES SUBROUTINE 

1 4184 

D5 TEST 5 SPACES 

1 4185 

E5 

14186 

01,05,00 

141 89 

CD,BB,1F 

14192 

El 

1 41 93 

D1 

1 4 194 

C9 

STACK 

NUMBER SUBROUTINE 

1 41 95 

ED,5B,65,5C STK MEM 

14199 

CD,7F,37 

3. 4202 

ED,53,65,5C 

14206 

C9 

MOVE A FLOATING POINT NUMBER 

14207 

CD, 68,37 DUF'L I CATE 

14210 

ED,BO (OFFSET 49(31)) 

14212 

C9 

STACK 

LITERALS SUBROUTINE 

14213 

62 STK DATA (OFFSET 5: 

14214 

6 B 

1 4215 

CD,68,37 STK CONST 

14218 

D9 

14219 

E5 

14220 

D9 

14221 

E3 

14222 

C5 

14223 

7E 

14224 

E6, CO 

14226 

07 

14227 

07 

14228 

4F 

14229 

OC 

14230 

7E 

14231 

E6,3F 

14233 

20 , 02 

14235 


14236 

7E 

14237 

C6,50 FORM EXP 

14239 

12 

14240 

3E, 05 

14242 

91 

14243 


14244 

13 

14245 

OS, 00 

14247 

ED, BO 

14249 

Cl 

14250 

E3 

14251 

D9 

14252 

El 

14253 

D9 

14254 

47 

14255 

AF 


PUSH DE 
PUSH HL 
LD BC, 5 

CALL 8123 CHECK SIZE 
POP HL 
POP DE 
RET 


LD DE, (23653) STK BOTTOM 
CALL 14207 DUPLICATE 
LD (23653), DE 
RET 

UBROLJTI ME 

CALL 14184 TEST 5 SPACE 

LD IR 

RET 


34)) LD H, D 

CALL 14184 TEST 5 SPACE 
EXX 

PUSH HL 
EXX 

EX (SP), HL 
PUSH BC 
L.D A, (HL) 

AND 192 SAVE 2 HIGH BITS 

RRC A 

RRC A 

LD C, A 

INC C 

LD A, (HL) 

AND 63 MASK 5 LOW BITS 
JR NZ, 2 (14237) FORM EXPONENT 
INC HL 
LD A, (HL) 

ADD A, 80 
LD (DE), A 

LD A, 5 * 

SUB C 
INC HL 
INC DE 
LD B, 0 
LD IR 
POP BC 
EX (SP), HL 
EXX 

POP HL 
EXX 

LD B, A 

XOR A CLEAR A & CARRY 
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14256 
14257' 
14253 

14259 

14260 


05 

CS 

12 

13 

18, F A 


STK ZEROS DEC B 

RET Z 

LD (DE), A 
INC DE 

JR 250 (14256) STK ZEROS 


SKIP CONSTANTS SUBROUTINE 

14262 A7 SKIP CONSTANTS 

14263 CS SKIP NEXT 

14264 F5 

14265 D5 

14266 11,00,00 
14269 CD,87,37 

14272 D1 

14273 FI 

14274 3D 

14275 18,F2 


AND A CLEAR FLAGS 

RET Z 

PUSH AF 

PUSH DE 

LD DE, 0 

CALL 14215 STK CONSTANTS 
POP DE 
POP AF 
DEC A 

JR 242 SKIP NEXT 


MEMORY LOCATION SUBROUTINE 

14277 4F LOC MEM 

14278 07 

14279 07 

14280 81 

14281 4F 
14232 06,00 

14284 09 

14285 C9 


LD C, A 
RLC A 

RL.C A X4 
ADD A, C 
LD C, A 
LD B, O 
ADD HL, BC 
RET 


GET FROM MEMORY AREA SUBROUTINE (E0-E5) 

14286 D5 GET FROM MEM (OFFSET 65(41)) PUSH DE 

14287 2A,68,5C LD HL, (23656) MEM 

14290 CD,C5,37 CALL 14277 LOC MEM 

14293 CD,7F,37 CALL 14207 DUPLICATE 

14296 El POP HL 

14297 C9 RET 


STACK 

14298 

14299 

14300 

14301 

14302 

14305 

14306 
14309 

14312 

14313 

14314 

14315 


A CONSTANT SUBROUTINE 


62 

6 B 

D9 

E5 


STK 


21,84, 

D9 

CD,B6, 
CD,87, 
D9 


El 


D9 

C9 


CONSTANT(OFFSETS A0-A4) LD H, D 

LD L, E 
EXX 

PUSH HL 

6 LD HL, 13956 CONSTANT TABLE 

EXX 

7 CALL 14262 SKIP CONSTANT 

7 CALL 14215 STK CONSTANT 

EXX 

POP HL 

EXX 

RET 


STORE IN MEMORY AREA SUBROUTINE 

14316 E5 STORE MEM (OFFSETS C0-C5) PUSH HL 

14317 EB EX DE, HL 

14318 2A,68,5C LD HL, (23656) MEM 

14321 CD,C5,37 CALL 14277 LOC MEM 
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1 4324 

EB 


ED DE, HL 

14325 

CD, 

7F ,37 

CALL 14207 DUPLICATE 

14328 

EB 


EX DE, HL 

14229 

El 


POP HL 

14330 

C9 


RET 

EXCHANGE 

SUBROUTINE 


14331 

06, 

05 EXCHANGE(OFFSET 

1) LD B, 5 COUNT 5 

14333 

1 A 

SNAP BYTE 

LD A, (DE) 

14334 

IE 


LD C, (HL) 

14335 

EB 


EX DE, HL 

14336 

12 


LD (DE), A 

14337 

71 


LD (HL), C 

14338 

'T'T 


INC HL 

14339 

i ~r 


INC DE 

1 4340 

10 , 

F7 

DJNZ, 247 SWAP BYTE 

14342 

EB 


EX DE, HL 

14343 

C9 


RET 

SERIES GENERATOR SUBROUTINE 


14344 

47 

SERIES GENERATOR 

LD B, A 

14345 

CD, 

ID,37 (OFFSETS 86,88 

,80 CALL 14109 GEN ENT 

14348 

31 


DUPLICATE 

14349 

OF 


ADD 

1 4350 

CO 


STK TO MEM 0 

14351 

02 


DELETE 

14352 

AO 


STK 0 

14353 

C2 


STK TO MEM 2 

1 4354 

31 

G LOOP 

DUPLICATE 

14355 

EO 


GET MEM 0 

14356 

04 


MULTIPLY 

14357 

E2 


GET MEM 2 

1 4358 

Cl 


STK TO MEM 1 

14359 

03 


SUBTRACT 

1 4360 

33 


END FP 


■1 (=RST40> 


14361 

14364 

14367 

14368 

14369 

14370 

14371 

14373 

14374 

14375 

14376 


CD,85,37 

CD,21,31 

OF 

01 

C2 

02 

35, EE 

El 

03 

38 

C9 


14213 
141 13 


CALL 
CALL 
ADD 

EXCHANGE 
STK TO MEM 
DELETE 
DJNZ, 238 
GET MEM O 
SUBTRACT 
END FP 
RET 


STK 

GEN 


0 


DATA 

ENT-: 


<=RST40) 


(14354) G LOOP 


ABSOLUTE MAGNITUDE FUNCTION 

14377 06,FF ABS(OFFSET 42(2A) LD B, 255 

14379 18,06 JR £ (14387) NEG TEST 

UNARY MINUS OPERATION 

14381 CD,04,39 NEGATE(OFFSET 27(IB) CALL 14596 TEST O 

14384 D8 RET Z 

14385 06,00 LD B, O 



NEG TEST 


14387 

7E 


1 4388 

A7 


14389 

28, 

OB 

14391 

n ~~s 


14392 

78 


14393 

E6, 

SO 

14395 

B6 


14396 

17 


14397 

3F 


1 4398 

IF 


14399 

77 


14400 

2B 


1 4401 

C9 


14402 

D5 


14403 

E5 


14404 

CD, 

3D 

14407 

El 


14408 

78 


14409 

B1 


14410 

2F 


1441 1 

4F 


14412 

CD, 

4C 

14415 

D1 


14416 

C9 



INT CASE 


LD A, (HL) 

AND A CLEAR FLAGS 
JR Z, 11 (14402) INT CASE 

INC HL 
LD A, B 

AND 128 SAVE HIGH BIT 
OR (HL) 

RL. A 
CCF 
RR A 

LD (HL), A 
DEC HL 
RET 

PUSH DE 
PUSH HL 

CALL 12605 LD DE (GET INT) 

POP HL 

LD A, B 

OR C BC=0? 

CPL 

LD C, A 

CALL 12620 STK DE-S(INT STORE) 

POP DE 

RET 


SIGNUM FUNCTION 

14417 CD,04,39 SGN(OFFSET 44( 

14420 D8 

14421 D5 

14422 11,01,00 

14425 23 

14426 CB,16 

14428 2B 

14429 9F 

14430 4F 

14431 CD,4C,31 

14434 D1 

14435 C9 

IN FUNCTION 

14436 CD,23,IF IN(OFFSET 44(2C 
14439 ED,78 

14441 18,04 


20) CALL 14596 TEST O 
RET C 
PUSH DE 
LD DE, 1 
INC HL 
RL (HL) 

DEC HL 
SBC A, A 
LD C, A 

CALL 12620 ST DE-S (INT STORE) 

POP DE 

RET 


CALL 7971 FIX-U(FIND INT) 
IN A, (C) 

JR 4 (14447) PEEK STK 


PEEK FUNCTION 

14443 CD,23,IF PEEK (OFFSET 43(2B>> CALL 7971 FIX-U(FIND INT) 

14446 OA LD A, (BC) 

14447 CD,23,30 PEEK STK JP 12518 STK A 


USR FUNCTION 

14450 CD,23,IF USR(OFFSET 45(2D)> CALL 7971 FIX-U(FIND INT) 
14453 CD,8E,38 CALL 14473 CK SYS CONF 

14456 21,82,38 LD HL, 14466 USR BANK 

14459 E5 PUSH HL A RETURN 

14460 21, E9,30 l_D HL, 12521 STK BC 
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14463 E5 
.14464 C5 

14465 C9 

CALL USR BANK FUNCTION 

14466 FI GET USR BANK 

14467 3C 

14468 C8 

14469 C5 

14470 01,00,FF 
14473 CD,99,64 

14476 Cl 

14477 C9 

USR BANK FUNCTION 


14478 2A,BC,5C 
14481 23 


14482 

7E 

14483 

FE, 02 

14485 

20 , 2E 

14487 


14488 


14489 


14490 

78 

14491 

CB,7F 

14493 

28,26 

14495 

E6,06 

1 4497 

28, IB 

14499 

D6,04 

14501 

FA,B7, 

14504 

28,06 

14506 

7E 

14507 

FA,C5, 

14510 

18, IB 

14512 

7E 

14513 

CB, 77 

14515 

28, 16 

14517 

18,06 

14519 

7E 

14520 

CB, 6F 

14522 

28, OF 

14524 

18,07 

14526 

7E 

14527 

CB, 67 

14529 

28,08 

14531 

18,00 

14533 

El 

14534 

3E, FF 

14536 

F5 

14537 

E5 

14538 

C9 

14539 

El 

14540 

F5 

14541 

E5 

14542 

C5 


CK SYS CONF 


:8 

8 

CK A—6 

CK A-5 

CK A-4 

BANK 255 

USR BANK 


PUSH HL A RETURN 

PUSH BC A RETURN 

RET AS ABOVE 3 DIFFERENT ONES 


POP AF 
INC A 

RET 2 ELSE CHANGE BANKS 
PUSH BC 

LD B, 255 BANK # 

CALL 25753 BANK ENABLE 

POP BC 

RET 


LD HL, 

(23740) S 

YS CONF TABLE 

INC HL 




LD A, 

(HL) 2ND B 

VIE 


CP 2 




JR N2, 

46 (14533 

) BANK 

255 

INC HL 




INC HL 




INC HL 




LD A, 

A — 1 



BIT 7, 

A 



JR 2, 

38 (14533) 

BANK 

255 

AND 6 

SAVE BITS 

1 & 2 


JR 2, 

27 (14526) 

CK A— 

4 

SUB 4 




JP N, 

14519 CK A 

~5 


JF; 2 , , 

6 (14512) CK A—6 


LD A, 

(HL) DO IF 

BIT 2 

ON 


JF' N 14533 BANK 255 
JR 27 (15539) USR BANK 
LD A, (HL) 

BIT 6, A 

JR 2, 22 (14539) USR BANK 
JR 14 (14533) BANK 255 
LD A, (HL) 

BIT 5, A 

JR 2, 15 (14539) URS BANK 

JR 7 (14533) BANK 255 ' 

LD A, (HL.) i 

BIT 4, A 

JR 2, 8 (14539) URS BANK 

JR O (14533) BANK 255 

POP HL 

LD A, 255 

PUSH AF 

PUSH HL 

RET 

POP HL 

PUSH AF SAVE REGISTERS 
PUSH HL 
PUSH BC 






1 ?8 


14543 4F 
_14544 .06,00 
14546 CD,99,64 

14549 Cl 

14550 C9 

USR STRING FUNCTION 


14551 

CD, 

AF,2F URST(OFFSET 

14554 

OB 


1 4555 

78 


14556 

B1 


1 4557 

20, 

xi. 

14559 

1A 


1 4560 

CD, 

4B, 30 

14563 

8 , 

09 

14565 

D6, 

90 

14567 

38, 

19 

14569 

FE, 

15 

14571 

30, 

15 

14573 

3C 


14574 

3D 

USR RANGE 

14575 

87 


14576 

87 


14577 

0~7 

i_* / 


14578 

FE, 

A 8 

1 4580 

30, 

OC 

14582 

ED, 

4B,7B,5C 

14586 

81 


14587 

4F 


1 4583 

30, 

01 

14590 

04 


14591 

C3, 

E9,30 USR STACK 

14594 

CF 

ERR A 

1 4595 

09 


TEST ZERO 

SUBROUTINE 

14596 

E5 

TEST 0 

14597 

C5 


14598 

47 


14599 

7E 


1 4600 

OT 


14601 

B6 


1 4602 



14603 

B6 


1 4604 

0 * 7 * 


14605 

B6 


1 4606 

78 


14607 

Cl 


14608 

El 


14609 

CO 

NOT 0 

14610 

37 


1461 1 

C9 



LD C, A 
LD B, O 

CALL 25753 BANK ENABLE 

POP BC 

RET 


9)) CALL 12207 GET PARAM 
DEC BC 
LD A, B 
OR C BC=0? 

JR NZ, 35 (14595) ERR A 
LD A, (DE) 

CALL 12363 ALPHA? 

JR C, 9 (14574) URS RANGE 
SUB 144 UDC? 

JR C, 25 (14594) ERR A 
CP 21 

JR NC, 21(14594) ERR A (TOKEN) 

INC A 

DEC A 

ADD A, A 

ADD A, A 

ADD A, A 

CP 168 

JR NC, 12 (14594) ERR A 
LD BC, (23675) UDG TABLE 
ADD A, C 
LD C, A 

JR NC, 1 (14591) USR STACK 

INC B 

JP 12521 STK BC 
RST 8 ERROR 
A Invalid argument 


PUSH HL 
PUSH BC 
LD B, A 

LD A, (HL) ADD ALL BYTES TOGETHER 
INC HL 
OR (HL) 

INC HL 
OR (HL) 

INC HL 
OR (HL) 

LD A, B 
POP BC 
POP HL 
RET NZ 
SCF 
RET 


GREATER THAN ZERO OPERATION 

14612 CD,04,39 TEST XXOFFSET 55(37)) CALL 14596 TEST 0 
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1.4615 DS 
14616 3E,FF 
14618 18,06 


RET C WAS EXACTLY ZERO 
LD A, 255 + # 

JR 6 (14626) SIGN TO C 


NOT FUNCTION 

14620 CD,04,39 NOT(OFFSET 
14623 18,05 

LESS THAN ZERO OPERATION 


14625 AF 

TEST <0 (OFFSET- 

14626 23 

SIGN TO C 

14627 AE 


14628 2B 


14629 07 


ZERO OR ONE 

SUBROUTINE (FOR 

14630 E5 

FP 0 OR 1 

14631 3E,00 

LD FP—0 


14633 77 

14634 23 

14635 77 

14636 23 

14637 17 

14638 77 

14639 IF 

14640 23 

14641 77 

14642 23 

14643 77 

14644 El 

14645 C9 


8(30)) CALL 14596 TEST O 
JR 5 (14630) FP 0/1 


54(36)) XOR A CLEAR A L CARRY 

INC HL 
XOR (HL) 

DEC HL 
RLC A 

'/OF: /NOT) 

PUSH HL 
LD A, O 
L_D (HL), A 
INC HL 
LD (HL), A 
INC HL 
RL A 

LD (HL), A 
RR A 
INC HL 
LD (HL), A 
INC HL 
LD (HL), A 
POP HL 
RET 


OR OPERATION 

14646 EB OR (OFFSET 7) 

14647 CD,04,39 

14650 EB 

14651 D8 

14652 37 

14653 18,E7 

NUMBER AND NUMBER OPERATION 

14655 EB AND (OFFSET 8) 

14656 CD,04,39 

14659 EB 

14660 DO 

14661 A7 

14662 18,DE 


EXX 

CALL 14596 TEST 0 
EXX 

RET C ZERO 

SCF 

JR 231 (14630) FP O OR 1 


EX DE, HL 

CALL 14596 TEST O 

EX DE,HL 

RET NC NOT MATCH 

AND A CLEAR FLAGS 

JR 222 (14630) FP O OR 1 


STRING AND NUMBER OPERATION 

14664 EB STR Z< # (OFFSET 16(10)) EX DE, HL 

14665 CD,04,39 CALL 14596 TEST 0 

14668 EB EX DE, HL 

14669 DO RET NC NOT MATCH 

14670 D5 PUSH DE 
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14671 

IB 

14672 

AF 

14673 

12 

14674 

IB 

1467*5 

12 

1 4676 

D1 

14677 

C9 

COMPARISON OPERATION 

14678 

78 # AND # (OFFSET 9 

14679 

D6,08 ?< 17-22) 

1 468 1 

CB, 57 

14683 

20 , 01 

14685 

3D 

14686 

OF EX OR NO 

14687 

30,08 

14689 

FE¬ 

14690 

ES 

14691 

CD,FB,37 

14694 

D1 

14695 

EB 

14696 

FI 

14697 

CB,57 # OR $ 

14699 

20 ,07 

14701 

OF 

14702 

F5 

1 4703 

CD,CE,33 

14706 

18,33 

14708 

OF STRINGS 

14709 

F5 

14710 

CD,AF,2F 

14713 

D5 

14714 

C5 

14715 

CD,AF,2F 

14718 

El 

14719 

7C BYTE COMP 

14720 

B5 

14721 

E3 

14722 

78 

14723 

20, OB 

14725 

B1 

14726 

Cl 2ND LOW 

14727 

28,04 

14729 

FI 

14730 

3F 

14731 

18,26 

14733 

F1 BOTH NULL 

14734 

18, 13 

14736 

B1 2ND HIGH 

14737 

28, OD 

14739 

1A 

14740 

96 

14741 

38,09 

14743 

20, ED 

14745 

OB 


DEC DE 

XOR A CLEAR A 
LD (DE), A 
DEC DE 
LD (DE), A 
POP DE 
RET 


LD A, 

B 


SUB 8 



BIT 2, 

A 


JR NZ, 

1 

(14686) EX OR NOT 

DEC A 



RRC A 



JR NC, 

o 

(14697) # OR $ 


PUSH AF 
PUSH HL 

CALL 14331 EXCHANGE 

POP DE 

EX DE, HL 

POP AF 

BIT 2, A 

•JR NZ, 7 (14708) STRINGS 
RRC A 
PUSH AF 

CALL 13262 SUBTRACT 
JR 51 (14759) END TESTS 

RRC A 
PUSH AF 

CALL 12207 GET PARAM 
PUSH DE 
PUSH BC 

CALL 12207 GET PARAM 
POP HL 
LD A, H 

OR L HL = 0? 

EX (SP), HL 
LD A, B 

JR NZ, 11 (14736) 2ND HIGH 

OR C 
POP BC 

JR Z, 4 (14733) BOTH NULL 

POP AF 

CCF 

JR 22 (14755) STR TEST 
POP AF 

JR 19 (14755) STR TEST 
OR C 

JR Z, 13 (14752) 1ST LOW 
LD A, (DE) 

SUB (HL) 

JR C, 9 (14752) 1ST LOW 
JR NZ, 237 (14726) 2ND LOW 
DEC BC 




16'1 





14746 

13 


14747 

OT 


14748 

E3 


14749 

2B 


14750 

13, DF 


14752 

Cl 

1ST LOW 

14753 

FI 


1 4754 

A 7 


14755 

F5 

STR TEST 

1 4756 

ef 


14757 

AO 


1 4758 

38 


14759 

FI 

END TEST 

1 4760 

F5 


14761 

CD,1C,39 


14764 

FI 


1 4765 

F5 


14766 

D4,14,39 


14769 

FI 


1 4770 

OF 


14771 

D4,1C,39 


14774 

C9 


STRING CONCATENATION OPERATION 

14775 

CD,AF,2F 

STR ADD (OFFSET 

14778 

D5 


14779 

C5 


14780 

CD,AF, 2F 


14783 

El 


14784 

E5 


14785 

D5 


14786 

r-'er 

L-r v-J 


14787 

09 


14788 

44 


14789 

4D 


14790 

F7 


14791 

CD,70,2E 


14794 

Cl 


14795 

El 


14796 

78 


1 4797 

B1 


14798 

28,02 


1 4800 

ED, BO 


14802 

Cl 

OTHER STR 

1 4803 

El 


14804 

"70 

/ CJ 


1 4305 

B1 


14806 

28,02 


14808 

ED, BO 



STACK POINTERS SUBROUTINE 
14810 2A,65,5C STK POINTERS 
14813 11,FB,FF 

14816 E5 

14817 19 


INC DE 
INC HL 
EX (SP), HL 
DEC HL 

JR 223 (14719) BYTE COMP 
POP BC 
POP AF 

AND A CLEAR FLAGS 
PUSH AF 

RST 40 FP CALC 
STK 0 
END FP 
POP AF 
PUSH AF 

CALL C, 14620 NOT 
POP AF 
PUSH AF 

CALL NC, 14612 TEST 0 
POP AF 
RRC A 

CALL NC, 14620 NOT 
RET 


23(17)) CALL 12207 POP STR 
PUSH DE 
PUSH BC 

CALL 12207 POP STR 

POP HL 

PUSH HL 

PUSH DE 

PUSH BC 

ADD HL, DE 

LD B, H 

LB C, L 

RST 48 MAKE BC SPACES 

CALL 11888 PUSH STR 

POP BC 

POP HL 

LD A, B 

OR C BC=0? 

JR Z, 2 (14802) OTHER STR 

LDIR 

POP BC 

POP HL 

LD A, B 

OR C BC= O? 

JR Z, 2 (14810) STK POINTERS 
LDIR 


LD HL, (23653) STK END 
LD DE, 65531 = —5 
PUSH HL 
ADC HL, DE 



16 ? 


1 48 18 

D1 

14819 

C9 

CHR$ FUNCTION 

1 4820 

CD,93,31 

14323 

33, OE 

14825 

20, OC 

14827 

F5 

14828 

01 ,01„00 

14831 

F 7 

1 4832 

FI 

14833 

12 

14834 

CD,70,2E 

14337 

EB 

14838 

C9 

14839 

CF 

1 4840 

OA 

VAL. AND VAL$ FI 

14841 

2A,5D,5C 

14844 

E5 (QFFSI 

14845 

78 

14846 

C6, E3 

14848 

9F 

14849 

F5 

1 4850 

CD,AF,2F 

14853 

D5 

14854 

03 

14855 

r 3 

14856 

El 

14857 

ED,53,5D 

14861 

D5 

14862 

ED , BO 

14864 

EB 

14865 

2 B 

14866 

36, OD 

14868 

FD,CB,01 

14372 

CD,54,28 

14375 

DF 

14876 

FE, 03 

14878 

20,07 

14880 

El 

14881 

FI 

14882 

FD,AE,01 

14885 

E6,40 

14887 

C2,ED,IB 

14890 

22,5D,5C 

14893 

FD,CB,01 

14897 

CD,54,28 

14900 

El 

14901 

22,5D,5C 

1 4904 

18, AO 


POP 

RET 


DE 


(OFFSET 47(2F)) CALL 12691 FP TO A 
JR C, 14 (14839) ERR B 
JR NZ, 12 (14839) ERR B 
PUSH AF 
LD BC, 1 

RST 48 MAKE BC SPACES 

POP AF 

LD (DE), A 

CALL 11888 PUSH STR 

EX DE,HL 

RET 

ERR B RST 8 ERROR 

B lineger out of range 


)AL 


(23645) 

HL 


CHAR ADDR 


227 (VAL +FB) 


D,5C 


BC SPACES 
DE CHAR ADDR 


END OF LINE 


SYN ERR 


'AL$ LD HL, 

.D) .324(18) ) PUSH 
LD A, B 
ADD A, 

SBC A, A 
PUSH AF 

CALL 12207 POP STR 
PUSH DE 
INC BC 
RST 48 MAKE 
POP HL 
LD (23645), 

PUSH DE 
LDIR 

EX DE, HL 
DEC HL 

LD (HL), 13 ENTER 

RES 7, (IY+1) SYNTAX ON 

CALL 10324 EXPRESSION 
RST 24 GET CHAR 
CP 13 ENTER? 

JR NZ, 7 (14887) 

POP HL 
AF 

(IY+1) 

64 SET BIT 5 
NZ 7149 SYN ERR 


SYN ERR 


POP 
XOR 
AND 
JP 

LD (23645), HL CHAR ADDR 
SET 7, (IY+1) LINE OK 

CALL 10324 EXPRESSION 
POP HL 

LD (23645), HL RESTORE CHAR ADDR 
JR 160 (14810) STK POINTERS 


STR$ FUNCTION 

14906 01,01,00 STR$(OFFSET 46(2E)) LD BC, 1 





16-3 


14909 

F7 

14910 

22, 5B 

14913 

E5 

14914 

2A, 51 

14917 

E5 

1 49 18 

3E, FF 

14920 

CD, 30 

1 4923 

CD, A1 

14926 

El 

1 4927 

CD, 48 

14930 

D1 

14931 

2 A, 5B 

14934 

A7 

1 4935 

ED, 52 

15937 

44 

14938 

4D 

14939 

CD, 70 

14942 

EB 

14943 

C9 


RST 43 MAKE BC SPACES 
LD (23643), HL K CUR SAVE 
PUSH HL 

LD HL, (23633) CURRENT CHAN 
PUSH HL 

LD A, 255 CHAN R 
CALL 4656 SELECT CHAR 
CALL 12705 OUTPUT # 

POP HL 

CALL 4680 SEL HL CHAN FLAG 
POP DE 

LD HL, (23643) K CUR 
AND A CLEAR FLAGS 
SBC HL, DE 

LD B, H LENGTH TO BC 
LD C, L 

CALL 11888 PUSH STR 

EX DE, HL 

RET 


READ IN SUBROUTINE 

14944 CD,IE,IF READ (OFFSET 2 

14947 FE,10 

14949 D2,29,IF 
14952 2A,51,5C 

14955 E5 

14956 CD,30,12 
14959 CD,El,11 
14962 01,00,00 
14965 30, OC 

14967 OC 

14968 F7 

14969 12 

14970 CD,70,2E READ STORE 

14973 El 

14974 CD,48,12 
14977 C3,DA,39 


(1A)) CALL 7966 FIX-U1 (FIND SIN # 
CP 16 

JP NC, 7977 ERR B 

LD HL, (23633) CURRENT CHAN 

PUSH HL 

CALL 4556 SELECT CHAN 
CALL 4577 INPUT CHAR 
LD BC, 0 

JR NC, 3 (14970) READ STORE 
INC C 

RST 48 MAKE BC SPACES 
LD (DE), A 
CALL 11888 PUSH STR 
POP HL 

CALL 4680 SEL HL CHAN FLAG 
JP 14810 STK POINTERS 


CODE FUNCTION 

14980 CD,AF,2F CODE (OFFSET 

14983 78 

14984 B1 

14985 28,01 

14987 1A 

14988 C3,E6,30 STK CODE 

LEN FUNCTION 

14991 CD,AF,2F LEN(OFFSET 
14994 C3,E9,30 

DECREASE COUNTER SUBROUTINE 

14997 D9 DJN2 (OFFSET 5 

14998 E5 

14999 21,67,5C 
15002 35 


28(10) CALL 12207 POP STR 
LD A, B 
OR B BC=0? 

JR Z, 1 (14988) STK CODE 

LD A, (DE) 

JP 12518 STK A 


0(IE))CALL 12207 POP STR 


JP 12521 STK A 


(35)) EXX 

PUSH HL 
LD HL, 23655 
DEC (HL) 


AT B REG 
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15003 El ... 

POP HL 

15004 20,04 

JR NZ, 4 (15010) JUMP-2 

15006 23 

INC HL 

15007 D9 

EXX 

15008 C9 

RET 

JUMP ROUTINE 

15009 D9 JUMP (OFFSET 51(33)) 

EXX 

15010 5E JIJ M P ~ 2 

LD E, (HL) 

15011 7B 

LD A, E 

15012 17 

RL A 

15013 9F 

SBC A, A 

15014 57 NEW ADDR 

LD D, A 

15015 19 

ADD HL, DE 

15016 D9 

EXX 

15017 09 

RET 

JUMP IF TRUE SUBROUTINE 

15018 13 JUMP IF TRUE(OFFSET 0: 

> INC DE 

15019 13 

INC DE 

15020 1A 

LD A, (DE) 

15021 IB 

DEC DE 

15022 IB 

DEC DE 

15023 A7 

AND A CLEAR FLAGS 

15024 20,EF 

JR NZ, 239 (15009) JUMP 

15026 D9 

EXX 

15027 23 

INC HL 

15028 D9 

EXX 

15029 09 

RET 

END FLOATING POINT CALCULATION 

SUBROUTINE 

15030 FI END FP(OFFSET 56(38)) 

POP AF 

15031 D9 

EXX 

15032 E3 

EX (SP), HL 

15033 D9 

EXX 

15034 C9 

RET 

MODULUS SUBROUTINE 

15035 EF INT DIVIDE (N MOD M) 

RST 40 FP CALC (MEM 0= 

15036 CO OFFSET 50(32)) 

STK TO MEM 0 

15037 02 

DELETE 

15038 31 

DUPLICATE 

15039 EO 

GET MEM 0 

15040 05 

DIVIDE 

15041 27 

I NT 

15042 EO 

GET MEM 0 

15043 01 

EXCHANGE 

15044 CO 

STK TO MEM 0 

15045 04 

MULTIPLY 

15046 03 

SUBTRACT 

15047 EO 

GET MEM 0 

15048 38 

END FP 

15049 C9 

RET 


M> 
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INTEGER FUNCTION 


15050 

EF INT (OFFSET 

15051 

31 

15052 

36 

15053 

00 , 04 

15055 

3 A 

15056 

33 

15057 

C9 

15058 

31 

15059 

~ r s\ 

OH 

15060 

CO 

15061 

03 

15062 

EO 

15063 

01 

15064 

30 

1 5065 

00, 03 

15067 

/\ i 

M 1 

15068 

03 

15069 

38 

15070 

C9 

EXPONENTIAL FUNCTION 

15071 

EF EXP (OFFSET 

15072 

3D 

15073 

34 

15074 

FI,38,AA,3B, 29 

15079 

04 

15080 

31 

15081 

27 

15082 

C3 

15083 

03 

15084 

31 

15085 

OF 

15086 

A1 

15087 

03 

15088 

88 

15089 

13,36 

15091 

58,65 , 66 

15094 

9D,78,65,40 

15098 

A2,60,32,09 

15102 

E7,21,F7,AF,24 

15107 

EB,2F,BO,BO,14 

15112 

EE,7E,BB,94,58 

15117 

F1,3A,7E,F8,CF 

15122 

E3 

15123 

38 

15124 

CD,93,31 

15127 

20,07 

15129 

38,03 

15131 

86 

15132 

30,09 

15134 

CF 

15135 

05 

15136 

38,07 


59(27) )- 


X-NEG 


EXIT 


33(26)) 


ERR 6 


- RST 40 FP CALC 
DUPLICATE 
TEST <0 

JUMP IF TRUE (15058) X-NEG 

TRUNCATE 

END FP 

RET 

DUPLICATE 

TRUNCATE 

STK TO MEM 0 

SUBTRACT 

GET MEM 0 

EXCHANGE 

NOT 

JUMP IF TRUE 4 (15069) EXIT 
STK TO MEM 0 
SUBTRACT . 

END FP 
RET 


RST 40 FP CALC 
E TO FP 
STK DATA 

EXP 81,+38,+AA,+3B,+29 
MULTIPLY 
DUPLICATE 
I NT 

STK TO MEM 3 

SUBTRACT 

DUPLICATE 

ADD 

STK 1 

SUBTRACT 


SER] 

[ES 

8 




EXP 

63, 

+36, 

( “MX 

, +00 

, +00) 

EXP 

68 , 

+65, 

+66, 

< +00 

, +00) 

EXP 

6 D, 

+78, 

+65, 

+40, 

(+00) 

EXP 

72, 

+60, 

+32, 

+C9, 

(+00) 

EXP 

77, 

+21 , 

+F7, 

+AF, 

+24 

EXP 

7B, 

+2F, 

+BO, 

+B0, 

+ 14 

EXP 

7E, 

+7E, 

+BB, 

+94, 

+58 

EXP 

81, 

+3 A, 

+7E, 

+FS, 

+CF 


GET MEM 3 
END FP 

CALL 12691 FF'TO A 
JR NZ, 7 (15136) N NEG 
JR C, 3 (15134) ERR 6 
ADD A, (HL) 

JR NC, 9 (15143) RESULT OK 
RST 8 ERROR 
6 Number too big 
JR C, 7 (15145) RESULT 0 


N NEG 











1.5138 96 
15139 30,04 
15141 ED,44 

15143 77 

15144 C9 

15145 EF 

15146 02 

15147 AO 

15148 38 

15149 C9 


SUB (HL) 

JR NC, 4 (15145) RESULT 0 
-NEG 

RESULT OK L.D (HL) , A 
RET 

RESULT O RST 40 FP CALC 
DELETE 
STK O 
END FP 
RET 


NUTURAL. LOGARITHM FUNCTION 


CD, Ed 


15150 EF LN (OFFSET : 

15151 3D 

15152 31 

15153 37 

15154 00,04 

15156 38' 

15157 CF 
15153 09 

15159 AO 

15160 02 

15161 38 

15162 7E 

15163 36,80 
15165 CD,E6,30 
15168 EF 
15170 38,00 

15172 03 

15173 01 

15174 31 

15175 34 

15176 FO,4C,CC,CC,CD 

15181 03 

15182 37 

15183 00,08 

15185 01 

15186 A1 

15187 03 

15188 01 

15189 38 

15190 34 

15191 EF 

15192 01 

15193 34 

15194 FO,31,72, 17, F8 

15199 04 

15200 01 

15201 A2 

15202 03 

15203 A2 

15204 03 

15205 31 

15206 34 

15207 32,20 


ERR A 


VALID 


’, 17,F8 


RST 40 FP CALC 
E TO FP 
DUPLICATE 
TEST >0 

JP IF TRUE 4 (15159) VALID 

END FP 

RST 8 ERROR 

A Invalid argument (NEGATI 
STK 0 
DELETE 
END FP 

LD A, (HL) EXPONENT 
LD (HL), 128 

CALL,125IS STK A 
STK DATA 

EXP 8S,(+00,+00,+00,+00) 

SUBTRACT 

EXCHANGE 

DUPLICATE 

STK DATE 

EXP 80,+4C,+CC,+CC,+CD 

SUBTRACT 

TEST >0 

JUMP IF TRUE 8 (15192) >8 

EXCHANGE 

STK 1 

SUBTRACT 

EXCHANGE 

END FP 

INC (HL) 

RST 40 FP CALC 

EXCHANGE 

STK DATA 

EXP 80,+31,+72,+17,+F8 

MULTIPLY 

EXCHANGE 

STK 1/2 

SUBTRACT 

STK 1/2 

SUBTRACT 

DUPLICATE 

STK DATA 

EXP 82,+20,(+00,+00,+00) 


1 671 


15209 

04 

15210 

A2 

15211 

03 

15212 

8 C 

15213 

1 1 

15215 

14 

15217 

56 

15220 

59 

15223 

5C 

. , 
i _J j 

9E 

15230 

Hi 

15234 

A 4 

15238 

E7 

15243 

EA 

15248 

ED 

15253 

FO 

i cr r~. 

1 JxLJO 

04 

15259 

OF 

15260 

TO 

•_* 

15261 

C9 

REDUCE A! 

15262 

EF 

15263 

3D 

15264 

34 

15265 

EE 

15270 

04 

j cr 7 --, “7 ^ 

31 

15272 

A 2 

15273 

OF 

15274 

27 

15275 

03 

1 cr o~7 L. 

X "wJ jL / 

31 

15277 

OF 

15278 

31 

15279 

OF 

15280 

31 

15281 

2A 

1 J4U4 

A1 

15283 

03 

15284 

31 

15285 

37 

15286 

CO 

15287 

00 . 

15289 

02 

15290 

38 

15291 

C9 

15292 

A1 

15293 

03 

15294 

01 

15295 

36 

15296 

00 . 

15298 

IB 

15299 

38 

15300 

C9 


AC 
, 09 
DA, AF 
, 30,C5 
90, AA 
70,6F,61 
CB,DA,96 
31,9F,B4 
AO,FE,5C,FC 
1B,43,CA,36 
A7,9C,7E,5E 
6E,23,SO,93 


6 . 

~7 

/ m 

a 

w ■ 

CJ 

10 . 
11 . 
12 . 


SUBROUTINE 


ROUND 


04 


PLUS 


02 


MULTIPLY 
STK 1/2 
SUBTRACT 
SERIES 12 
EXP 61,+AC, 
EXP 64,+09, 
EXF‘ 66, +DA, 
EXP 69,+30, 
EXP 6C,+90, 
EXP 6E,+70, 
EXP 71,+CB, 
EXP 74,+31, 
EXP 77,+AO, 
EXP 7A,+1B, 
EXP 7D,+A7, 
EXP 80,+6E, 
MULTIPLY 
ADD 

END FP 
RET 


(+ 00 ,+ 00 ,+ 00 ) 
(+ 00 ,+ 00 ,+ 00 ) 
+A5,(+00,+00) 
+C5,(+00,+00) 
+ AA ,(+00 ,+ 00 ) 
+6F,+61,(+00) 


+DA 

+9F 


+23 


+96 
+B4, 


+FE,+5C,+FC 


+43,+UA 


+9C,+7E,+ 


+80 


(+ 00 ) 
(+ 00 ) 


+36 


+93 


57(39)) RST 40 FP CALC 
E TO FP 
STK DATA 

EXP 7E,+22,+F9,+83,+63 

MULTIPLY 

DUPLICATE 

STK 1/2 

ADD 

I NT 

SUBTRACT 

DUPLICATE 

ADD 

DUPLICATE 

ADD 

DUPLICATE 

ABS 

STK 1 

SUBTRACT 

DUPLICATE 

TEST >0 

STK TO MEM 0 RESULT OF TEST 

JUMP IF TRUE 4 (15292) 2 PLUS 

DELETE 

END FP 

RET 

STK 1 

SUBTRACT 

EXCHANGE 

TEST <0 

JUMP IF TRUE 2 (15299) Y NEG 

NEGATE 

END FP 

RET 


Y NEG 










COSINE FUNCTION COS X = SIN(PI*W/2) 


1530 1 

EF COS (OFSET 3 

2 ( 20 ) ) 

RST 40 FP CALC 

15302 

39 


GET ARGUMENT 

15303 

2A 


ABS 

15304 

A 1 


STK 1 

15305 

03 


SUBTRACT 

15306 

EO 


GET MEM 0 

15307 

00 ,06 


JUMP IF TRUE 6 (15314) C 

15309 

IB* 


NEGATE 

15310 

33,03 


JP 3 (15314) C-ENT 

15312 

EF SIN (OFFSET 

31 ( 1 F) ) 

RST 40 FP CALC 

15313 

39 


GET ARGUMENT 

15314 

31 

C-ENT 

DUPLICATE 

15315 

31 


DUPLICATE 

15316 

04 


MULTIPLY 

15317 

31 


DUPLICATE 

1531S 

OF 


ADD 

15319 

A 1 


STK 1 

15320 

03 


SUBTRACT 

15321 

86 


SERIES 6 

j C 707 

1 4, E 6 

1 . 

EXP 64,+E6,(+00,+00,+00) 

15324 

5C,IF,OB 

9 

EXP 6 C,+ 1 F,+ 0 B,(+ 00 ,+ 00 ) 

1 crT'“?-*7 

J. -J •_* jl . / 

A3,SF,38,EE 

3 

EXP 73,+SF,+38,+EE,(+00) 

15331 

E9,15,63,BB,23 

4. 

EXP 79,+15,+63,+BB,+23 

15336 

EE,92,OD,CD,ED 

5. 

EXP 7E,+92,+0D,+CD,+ED 

15341 

F 1 ,23,5D,IB,EA 

6 . 

EXP 81,+23,+5D,+1B,+EA 

15346 

04 


MULTIPLY 

15347 

38 


END FP 

15348 

C9 


RET 

TAN FUNCTION TAN X 

= SIN X/COS X 

15349 

EF TAN(OFFSET 3 

3(21) ) 

RST 40 FP CALC 

15350 

31 


DUPLICATE 

15351 

IF 


SIN 

15352 

01 


EXCHANGE 

15353 

20 


COS 

15354 

05 


DIVIDE 

15355 

38 


END FP 

15359 

C9 


RET 

ARCTAN FUNCTION 



15357 

CD,56,36 ATN (OFFSET 36( 

24)) CALL 13910 E TO FP 

15360 

7E 


LD A, (HL) 

15361 

FE, 81 


CP 81 

15363 

38, OE 


JR C, 14 (15379) SMALL 

15365 

EF 


RST 40 FP CALC 

15366 

A 1 


STK 1 

15367 

IB 


NEGATE 

15368 

01 


EXCHANGE 

15369 

05 


DIVIDE 

15370 

31 


DUPLICATE 

15371 

36 


TEST < 0 

15372 

A3 


STK PI/2 

15373 

01 


EXCHANGE 













15374 

00,06 


JUMP IF TRUE, 6 

(15331) 

15376 

IB 


NEGATE 


15377 

*7 ("j ~r 


JUMP 3 (15331) 

CASES 

1537? 

EF 

SMALL 

RST 40 FP CALC 


15330 

AO 


STK 0 


15331 

01 

CASES 

EXCHANGE 


15332 

31 


DUPLICATE 


15333 

31 


DUPLI CATE 


15334 

04 


MULTIPLY 


1 5335 

31 


DUPLICATE 


15386 

OF 


ADD 


1 5387 

Hi 


STK 1 


1 «=! *T O O 

X .J u_< 

03 


SUBTRACT 


15389 

8C 


SERIES 12 


15390 

10 , B2 

1 . 

EXP 60 ,+B2,(+0C 

,+00,+00) 

15392 

13, OE 

'*■> 

ElXP 63, +OE, (+0C 

,+00,+00) 

15394 

55,E4,8D 

3 

EXP 65,+E4,+8D, 

(+00,+00) 

1 5397 

53,39,BC 

4. 

EXP 68,+39,+BC, 

(+00,+00) 

15400 

5B,98,FD 

tzr 

EXP 6B,+98,+FD, 

(+00,+00) 

15403 

9E,00,36,75 

6. 

EXP 6E,+00,+36, 

+75,(+00) 

15407 

AO,DB,E8,B4 

7. 

EXP 70,+DB,+E8, 

+B4,(+00) 

15411 

63,42,C4 

8. 

EXP 73,+42,+C4, 

(+00 , +00) 

15414 

E6,B5,09 , 36 , BE 

9. 

EXP 76,+B5,+09, 

+36,+BE 

15419 

E9,36,73,IB,5D 

10 - 

EXP 79,+36,+73, 

+1B,+5D 

15424 

EC,D8 , DE , 63,BE 

11 - 

EXP 7C,+DS,+DE, 

+63,+BE 

15429 

FO,61,A1,B3,OC 

12. 

EXP 80,+61,+Al, 

+B3 , +0C 

15434 

04 


MULTIPLY 


15435 

OF 


ADD 


15436 

38 


END FP 


15437 

C? 


RET 


ARCSIN FUNCTION 




15438 

EF ASN (OFFSET 

34(22)) 

RST 40 FP CALC 


15439 

31 


DUPLICATE 


15440 

31 


DUPLICATE 


15441 

04 


MULTIPLY 


15442 

A1 


STK 1 


15443 

03 


SUBTRACT 


15444 

IB 


NEGATE 


15445 

23 


SQR 


j. 54 46 

A1 


STK 1 


15447 

OF 


ADD 


15448 

05 


DIVIDE 


15449 

24 


ATN 


15450 

31 


DUPLICATE 


15451 

OF 


ADD 


15452 

38 


AND FP 


15453 

C9 


RET 



ARCC03 FUNCTION ACN 

15454 EF ACN (OFFSET 3! 

15455 22 

15456 A3 

15457 03 

15458 IB 


X = PI/2 - ASN X 
(23)) RST 40 FP CALC 
ASN 

STK PI/2 
SUBTRACT 
NEGATE 


CASES 








15459 38 
15440 C9 


END FP 
RET 


17 0 


SQUARE ROOT SUBROUTINE 

15461 

EF SQR (OFFSET 40(28 

15462 

31 

15463 

30 

15464 

00, IE 

15466 

A 2 

15467 

70 

u_> 

EXPO N EN T A T10N 0PERAT10N 

15468 

EF TO THE (OFFSET 6) 

15469 

01 

15470 

31 

15471 

30 

15472 

00, 07 

15474 

O'- 

15475 

04 

15476 

38 

15477 

C3,DF,3A 

15480 

02 X=0 

15481 

31 

15482 

30 

15483 

00 „ 09 

15485 

AO 

15486 

01 

15487 

37 

15488 

00, 06 

15490 

A1 

15491 

01 

15492 

05 

15493 

02 ONE 

15494 

A1 

15495 

38 LAST 

15496 

C9 

TAPE MESSAGES 

15497 

80,53,74,61,72,74,20 


74,61,70,65,2C,20,74 


68,65,6E,20,70,72,65 


73,73,20,61,6E,79,20 


6B, 65,79,AE,OD 

15530 

50,72,6F,67,72,61,6D, 


3A,AO,OD 

15540 

4E,75,6D,62,65,72,20, 


61,72,72,61,79,3A,AO . 


OD 

15555 

4 j*, 68, 61, 72,61,63,74. 


65,72,20,61,72,72,61. 


79,3A,AO,OD 

15573 

42,79,74,65,73,3A,AO 


RST 40 FP CALC 
DUPLICATE 
STK 1 

JUMP IF TRUE 31 (15495) 

STK 1/2 
END FP 


RST 40 FP CALC 
EXCHANGE 
DUPLICATE 
NOT 

JUMP IF TRUE, 7 (15480) 
LN 

MULTIPLY 
END FP 

JP 15071 EXP 
DELETE 
DUPLICATE 
NOT 

JUMP IF TRUE, 9 (15493) 
STK 0 
EXCHANGE 
TEST >0 

JUMP IF TRUE, 6 (15495) 

STK 1 

EXCHANGE 

DIVIDE 

DELETE 

STK 1 

END FP 

RET 


Start tape, then press 


Program: 
Number array: 


Character array: 


Bytes: 


15580-15615 FF 


LAST 


X=0 


ONE 


LAST 


any key. 


UNUSED 
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CHARACTER TABLE 


1 5616 

00, 

00, 

00, 

00, 

00, 

00, 

00, 

00 

(SPACE) 

15624 

00, 

10, 

10, 

10, 

10, 

00, 

10, 

00 

1 

15632 

00, 

24, 

24, 

00, 

00, 

00, 

00, 

00 

" 

15640 

00, 

24, 

7E, 

24, 

24, 

7E, 

24, 

00 

# 

15648 

00, 

08, 

3E, 

28, 

3E, 

OA, 

3E, 

00 

4: 

15656 

00, 

62, 

64, 

08, 

1 o, 

26, 

46, 

00 

7. 

15664 

00, 

10, 

28, 

10, 

2A, 

44, 

O'A, 

00 


x •—} u / 

00 , 

08, 

10, 

00, 

00, 

00, 

00, 

00 

•- 

15680 

00 , 

04, 

08, 

08, 

08, 

08, 

04, 

00 

( 

15688 

00, 

20, 

10, 

10, 

10, 

10, 

20, 

00 

) 

15696 

00, 

00, 

14, 

08, 

3E, 

08, 

14, 

00 

* 

15704 

00, 

00, 

(_) 8, 

08, 

3E, 

08, 

08, 

00 

+ 

15712 

00, 

00, 

00, 

00, 

00, 

08, 

08, 

00 


15720 

00, 

00, 

00, 

00, 

3E, 

00, 

00, 

00 

- 

15728 

00, 

00, 

00, 

00, 

00, 

18, 

18, 

00 

u 

15736 

no 

- i 

00, 

02, 

04, 

08, 

10, 

20, 

00 

/ 

15744 

00, 

3C, 

4 to, 

4 A, 

52, 

62, 

3C, 

00 

0 

15752 

00, 

18, 

oo 

•4-'—' 1 

08, 

08, 

08, 

3E, 

00 

1 

15760 

00, 

3C, 

42, 

02, 

3C, 

02, 

3C, 

00 


15768 

00, 

3C, 

42, 

OC, 

02, 

42, 

Tl } 

v , 

00 

~T 

15776 

00, 

U8, 

18, 


48, 

7E, 

08, 

00 

4 

15784 

00, 

7E, 

40, 

7C, 

02, 

42, 

3C, 

00 

5 

15782 

00, 

3C, 

40, 

7C, 

42, 

42, 

3C, 

00 

6 

15800 

00, 

7E, 

02, 

04, 

08, 

10, 

10, 

00 

7 

15808 

00, 

3C, 

42, 

3C, 

42, 

42, 

3C, 

00 

o 

w 

15816 

00, 

3C, 

42, 

42, 

3E, 

02, 

3C, 

00 

9 

15824 

00, 

00, 

00, 

10, 

00, 

00, 

10, 

00 


15832 

00, 

00, 

10, 

00, 

00, 

10, 

10, 

20 

? 

15840 

00, 

00, 

04, 

08, 

10, 

08, 

04, 

00 


15848 

00, 

00, 

00, 

3E, 

00, 

3E, 

00, 

00 

= 

15856 

00, 

00, 

10, 

08, 

04, 

08, 

10, 

00 


15864 

00, 

3C, 

42, 

04, 

08, 

00, 

08, 

00 

o 

15872 

00, 

3C, 

4A, 

56, 

5E, 

40, 

3C, 

00 

@ 

15880 

00, 

3C, 

42, 

42, 

7E, 

42, 

42, 

00 

A 

15888 

00, 

7C, 

42, 

7C, 

42, 

4 2 ? 

7C, 

00 

B 

15396 

00, 

3C, 

42, 

40, 

40, 

42, 

3C, 

00 

c 

15904 

00, 

78, 

44, 

42, 

42, 

44, 

78, 

00 

D 

15912 

00, 

7E, 

40, 

7C, 

40, 

40, 

7E, 

00 

E 

15920 

00, 

7E, 

40, 

7C, 

40, 

40, 

40, 

00 

F r 

15928 

00, 

3C, 

42, 

40, 

4E, 

42, 

3C, 

00 

G 

15836 

00, 

42, 

42, 

7E, 

42, 

42, 

42, 

00 

H 

15944 

00, 

3E, 

08, 

08, 

08, 

08, 

3E, 

00 

I 

15952 

00, 

02, 

02, 

02, 

42, 

42, 

3C, 

00 

J 

15960 

00, 

44, 

48, 

70, 

48, 

44, 

42, 

00 

K 

15968 

00, 

40, 

40, 

40, 

40, 

40, 

7E, 

00 

L 

15976 

00, 

42, 

66, 

5A, 

42, 

42, 

42, 

00 

M 

15984 

00, 

42, 

62, 

x-Ja- , 

4A, 

46, 

42, 

00 

N 

15992 

00, 

3C, 

42, 

42, 

42, 

42, 

TP 

, 

00 

0 

16000 

00, 

7C, 

42, 

42, 

7C, 

40, 

40, 

00 

P 

16008 

00 , 

3C, 

42, 

42, 

52, 

4A, 

3C, 

00 

Q 

16016 

00, 

7C, 

42, 

42, 

7C, 

44, 

42, 

00 

R 

16024 

00, 

3C, 

40, 

3C, 

02, 

42, 

3C, 

00 

S 

16032 

00 , 

FE, 

10 , 

10 , 

10 , 

10, 

10 , 

00 

T 

16040 

00 , 

42, 

42, 

42, 

42, 

42, 

3C, 

00 

U 
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16048 

00,42,42, 

42 

42,24,18,00 

V 

1 6Uj6 

00,42,42, 

42 

42,5A,24,00 

w 

16064 

00,42,24, 

18 

1S,24,42,00 

X 

16072 

00,82,44, 

28 

10,10,10,00 

V 

16080 

00,7E,04, 

08 

10,20,7E,00 

L. 

16088 

00,OE,08, 

08 

08,08,OE,00 

c 

16096 

00,00,40, 

20 

10,08,40,00 

\ 

16104 

00,70,10, 

10 

10,10,70,00 


16112 

00,10,38, 

54 

10,10,10,00 


16120 

00,00 H 00„ 

00 

00„00,00,FF 


16128 

00,1C,22, 

78 

20,20,7E,00 

POUND SIGN 

16136 

00,00,38, 

04 

3C,44,30,00 

a 

16144 

00,20,20, 

3C 

22,22,38,00 

b 

16152 

00,00,1c, 

20 

20,20,1C,00 

c 

16160 

00,04,04, 

3C 

44,44,3C,00 

d 

16168 

00,00,38, 

44 

78,40,3C,00 

0 

16176 

00,06,10, 

18 

10, 10, 1C), 00 

f 

16184 

00„00, 3C, 

44 

44,3C,04,38 

g 

16192 

00,40,40, 

"70 
/ !_» 

44,44,44,00 

h 

16200 

00,10,00, 

30 

10,10,38,00 

i 

16208 

00,04,00, 

04 

04,04,24,18 

j 

16216 

00,20,28, 

30 

30,28,24,00 

k 

16224 

00,10,10, 

10 

10,10,Oc,00 

1 

16232 

00,00,6C, 

92 

92,92,92,00 

m 

16240 

00,00,78, 

44 

44,44,44,00 

n 

16248 

00,00,38, 

44 

44,44,38,00 

o 

16256 

00,00,78, 

44 

44,78,40,40 

P 

16264 

00,00,3C, 

44 

44,3C,04,06 

q 

16272 

00,00,1C, 

20 

20,20,20,00 

r 

16280 

00,00,38, 

40 

38,04,78,O0 

s 

16288 

00,10,38, 

10 

10,10,OC,00 

t 

16296 

00,00,44, 

44 

44,44,38,00 

u 

16304 

00,00,44, 

44 

28,28,10,00 

V 

1,6312 

00,00,92, 

92 

92,92,6C,00 

w 

16320 

00,00,44, 

28 

10,28,44,00 

x 

16328 

00,00,44, 

44 

44,3C,04,38 

y 

16336 

00,00,7C, 

08 

10,20,7C,00 

z 

16344 

00,OE,08, 

30 

08,08,OE,00 

r 

K. 

16352 

00,08,08, 

08 

08,08,08,00 

1 

1 

16360 

00,70,10, 

oc 

10,10,70,00 

“i 

s 

16368 

00,14,28, 

00 

00,00,00,00 

close " 

16376 

3C,42,99, 

, Ai 

Al,99,42,3C 

copywrite 


16384-22527 DISPLAY FILE 

22528-23295 ATTR FILE 1 

23296-23551 PRINTER BUFFER 

23552-23755 SYSTEM VARIABLE TABLE ACTIVE 


-24297 RESERVED FOR MORE SYSTEM VARIABLES 


SYSTEM CONFIGURATION TABLE (INITIAL SETUP) 


24298 B6,00,B6,66,66,66,B6,B6,00,B6,B6,B6,80 
24311-24552 RESERVED FOR MORE DATA 
24553-24575 USR BANK TABLE 
24576-25087 MACHINE STACK 











NOTE: TRANSFER DISPATCHER: IN BOTTOM OF MACHINE STACK (STACK 
WORKS DOWN FROM 25087) 


TRANSFER DISPATCHER 


24576 

3E, 01 


24578 

D3, F4 


24580 

DB, FF 


24532 

CB, FF 


24584 

D3, FF 


24586 

21 ,00, 

10 

24589 

11 ,00, 

62 

24592 

01,30, 

06 

24595 

ED, BO 


24597 

CB, BF 


24599 

D3, FF 


24601 

AF 


24602 

D3,F4 


24604 

C9 



LD A, 1 
OUT (244), A 
IN A, (255) 

SET 7, A 
OUT (255), A 

LD HL, 4096 ADDR IN BANK 254 
LD DE, 25088 ADDR DESTINATION 
LD BC, 1584 LENGTH OF TRANSFER 
LDIR 

RES 7, A 
OUT (255), A 
XOR A CLEAR A 
OUT (244), A 
RET 


AS LONG AS THIS PROGRAM HAS NOT BEEN OVERWRITTEN BY THE STACK IT 
CAN BE MODIFIED TO PUSH EROM ANY PLACE YOU WANT. DOING THE 
FOLLOWING SIMPLE PROGRAM IN BASIC WILL TRANSFER THE 1ST 4K 
OF EROM TO 60000 WHERE IT CAN BE READ 


10 GO SUB 20: RANDOMISE USER 24576: GOSUB 20: STOP 
20 FOR X = 24588 TO 24594:READ Y:POKE X,Y:NEXT X 
30 RETURN 

40 DATA 0,17,98,234,1,0,16 
50 DATA 16,17,0,98,1,48,6 










FUNCTION DISPATCHER 


175 


NOTE: SOME SUBROUTINES OF THIS ROUTINE HAVE MAJOR ERRORS. DO NOT 
USE UNTIL OCRRECTED. CORRECTIONS ARE OUTLINED IN TECNICAL MANUAL 


cr o Fn 
/ijUao 


21,00, 




_l 


25096 

25097 


25102 
251 05 


2510 
2510 


o 


25110 
2511 1 
25114 
25116 

25118 

25119 
25121 
25123 
25126 
25128 

25130 

25131 


25140 

25142 

25144 

25146 

25148 

25150 

25152 

25154 


OD, 00 


18,00 


OF 

FF 

05,64 

FF 

OA 

FE 

FE 

04 

FF 


FF, IF 


FE 

16,6: 


25167 

25168 


25170 

25171 
25173 
25176 


IF 

71, FE 
70, FF 


00 FUNCTION DISPATCHER LD IX, O 

ADD IX, SP IX AT TOP OF STACK 

PUSH BC RESERVE A WORD 

PUSH AF SAVE REGISTERS 

PUSH BC 

PUSH DE 

PUSH HL 

LD D, (IX+2) DE= SERVICE CODE 
LD E, (IX+3) 

XOR A CLEAR A 
SL A 

RL D C0DEX2 

RL A JUMP FLAG 

LD HL, 13 LAST EXT SVC 
SLA L 

RL H HLX2 
AND A CLEAR FLAGS 
SBC HL, DE 

JR NC, 21 (25144) EXT ROM 

L-D HL, 24 (26>= CODE =< 12) 

SLA L HL*2 
RL H 

AND A CLEAR FLAGS 
SBC HL, DE 

JR C, 15 (25154) CODE >= 34 
LD B, 255 RAM BASED SERVICES 
CALL 25605 GET STATUS HOME BANK 
LD B, 255 

JR 10 (25154) SAVE 
EXT ROM LD B, 254 

LD C, 254 
JR 4 (25154) SAVE 
HOME LD B, 255 

LD C, O 

SAVE PUSH AF SAVE JP FLAG ?< BANK EN- 
F'USH BC ABLE PARAMETERS 

LD HL, 8191 JUMP TABLE (WORKS ) 
SCF DOWN FROM TOP) 

SBC HL, DE 
LD B, 254 

CALL 25366 GET WORD(READ TABLE) 
EX DE, HL 
POP BC 

POP AF GET JUMP FLAG 
AND A JUMP FLAG OFF? 

JR Z, 31 (25204) CALL 

LD (IX+254), C BANK # 

LD (1X+255), HORIZ SEL REG 




25179 

DD,6E,00 

25182 

DD,66,01 

25185 

DD , 74,03 

25188 

DD,75,02 

25191 

DD,72,01 

25194 

DD,72,01 

25197 

El 

25198 

D1 

25199 

Cl 

25200 

FI 

25201 

CD,72,65 

25204 

DD,6E,00 

25207 

DD,66,01 

25210 

E5 

2521 1 

DD,6E,04 

25214 

DD,66,05 

25217 

DD,75,FE 

25220 

DD,74,FF 

cr '-y -*r 

DD,6E,06 

nnrnn / 
xJ xl Si 

DD , c ..‘, u / 

25229 

DD,75 , 00 

OtrOT 

DD,74,01 

n cr ---v ~r cr 
xlUxll-U 

DD,71,02 

25238 

DD,70,03 

25241 

DD , 73 , 04 

25244 

DD,72,05 

/*-, cr n ~7 

si -_J xl *+ / 

E1 . 

25248 

DD,75,06 

25251 

DD,74,07 

O cr f'y cr q 

El 

cr '~y cr cr 
•L '— 1 jd -—j 

D1 

25256 

Cl 

cr •—i cr 
i-UilJ / 

FI 

25258 

CD,DO,65 

25061 

C9 


176 

LD L, (IX+O) SAVE RET ADDR 
LD H, (IX+1) 

LD (IX+3), H 
LD (IX+2), L 

LD (IX+1), D SETUP STACK FOR 

LD (IX+O), E GO TO BANK 

POP HL GET REGISTERS 

POP DE 

POP BC 

POP AF 

CALL 25970 GO TO BANK 
CALL LD L, (IX+O) 

LD H, (IX+1) 

PUSH HL RET ADDR 

L.D L, (I X+4) 

LD H, (IX+5) 

LD (IX+254), L 
LD (IX+255), H 
LD L, (IX+6) 

L_D H, (I X+7) 

LD (IX+O), L 

LD (IX+1), H 

LD (IX+2), C BANK # HS 

LD (IX+3), B 

LD (IX+4), E ADDR 

LD (IX+5), D 

POP HL 

LD (IX+6), L 
LD (IX+7), H 
POP HL 
POP DE 
POP BC 
POP AF 

CALL 26064 CALL BANK 
RET 


[SPATCHER INTERUPTABLE RESTART SUBROUTINE 


5262 F5 
E 5 

5264 DD,E5 
5266 21,00,00 

5269 39 

5270 D5 

5271 3A,15,63 

5274 5F 

5275 16,00 
5277 13 
5178 13 

5279 A7 

5280 ED,52 

5282 EB 

5283 DD,21,00,00 
5287 DD,19 

5289 D1 

5290 DD,F9 


INTERUPT PUSH AF (=RST 56) 
PUSH HL 
PUSH IX 
LD HL, 0 
ADD HL, SP 
PUSH DE 

LD A, (25365) BS M 

LD E, A 

LD D, O 

INC DE 

INC DE 

AND A CLEAR FLAGS 

SBC HL, DE 

EX DE, HL 

LD IX, DE 

ADD IX, DE 

POP DE 

LD SP, IX 


BS MAX BANK 
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'■> cr '-y cp O 

CD,IE,65 


CALL 25886 SAVE STATUS 

Ocrngcr 

C5 


PUSH BC 

.25296 

06, FF 


LD B, 255 

25298 

CD,05,64 


CALL 25605 GET STATUS 

25301 

06, FF 


LD B, 255 

25303 

79 


LD A, C 

25304 

E6,FS 


AND 248 SAVE HIGH NIBBLE 

25306 

4F 


LD C, A 

25307 

CD,99,64 


CALL 25753 BANK ENABLE 

'-"k cr -?• 
xL U 1 O 

Cl 


POP BC 

2531 1 

2A,78,5C 


LD HL, (23672) UPDATE FRAMES 

25314 

t-yr* 


INC HL 


22,78,5C 


LD (23672), HL 

'■**. cr-?- a r~, 
-J O J. O 

7C 


LD A, H 

25319 

B5 


OR L HL---0? 

25320 

20,03 


JR NZ, 3 (25325) LIT 3 

O cr -r -g> -n 

FD,34,40 


INC (IY+64) FRAMES LOW 

gcr-rncr 
.c. 1_J ^ 

C5 

LIT 3 

PUSH BC 

25326 

D5 


PUSH DE 

r> cr -?■ *-> “7 
,4_ / 

CD,El,02 


CALL 737 UPDATE KEYBOARD 

•'-wnr ~r- "7- 

*:jooU 

D1 


POP DE 

25331 

Cl 


POP BC 

J "7 cr ~T 

DD ,21, 00, 

00 POP HL.3AF, D I 

LD IX, 0 

25336 

DD, 39 


ADD IX, SP 

25338 

CD,4A,65 


CALL 25930 RESTORE STATUS 

25341 

DD, 23 


INC IX 

25343 

DD, F9 


LD SP, IX 

25345 

DD, El 


POP IX 

25347 

El 


POP HL 

25348 

FI 


POP AF 

25349 

FB 


El 

25350 

C9 


RET 

DISPATCHER NONMASKABLE INTERRUPT ROUTINE 

cr ~r cr «( 

F5 

NONMASK INT 

PUSH AF 

Octtc ro 

x. ■ — 1 %J jL. 

E5 


PUSH HL 

Ocr-rcr-T 

J— w 1 f -_ r 

2A,B0,5C 


LD HL, (23728) NMI ADD 

g:. c- -7- cr ^ 
X- 1-J 1_J CJ 

7C 


LD A, H 

O cr -r; cr -7 

B5 


OR L HL =0? 

25358 

20,01 


JR NZ, 1 (25361) LN13 (NO USR 

25360 

E9 


JP (HL) SUPPLIED SER ROUTINE 

25361 

El 

LN 13 

POP HL 

25362 

FI 


POP AF ! 

25363 

ED, 45 


RET Z 

BS MAX 

BANK REGISTER 


25365 

00 


HOLDS MAX BANK AVAILABLE 

DISPATCHER GET 

WORD SUBROUTINE 


25366 

F5 GET WORD <READ JP TABLE) PUSH AF ADDR=HL/BANK=B 

25367 

C5 


PUSH BC RETURNS WORD IN HL 

25368 

D5 


PUSH DE 

25369 

CD,5E,64 


CALL 25694 GET BANK #(0F OWNER 

25372 

F5 


PUSH AF ADDR) 

25373 

50 


LD D, B 




a n in 


25374 

47 

LD B, A 

25375 

CD,05,64 

CALL 25605 

2537S 

C5 

PUSH BC 

25379 

00,40,64 

CALL 25677 

25382 

2F 

CP L 

25383 

42 

LD B, 0 

25384 

4F 

LD C, A 

25385 

00,99,64 

CALL 25753 

25338 

5E 

LD E, (HL) 

25389 

23 

INC HL 

25390 

56 

LD D, (HL) 

25391 

2B 

DEC HL 

o «=: _r o 

j*_ -_J / ol— 

EB 

EX DE, HL 

25393 

01 

POP BC 

25394 

FI 

POP AF 

25395 

47 

LD B, A 

25396 

CD,99,64 

CALL 25753 

25399 

01 

POP DE 

25400 

Cl 

POP BC 

25401 

FI 

POP AF 

25402 

09 

RET 


GET STATUS (OF OWNER) 
GET CHUNK (ACTIVE LOW) 

BANK ENABLE 


BANK ENABLE (OWNER AD) 


ISPATCHER PUT WORD SUBROUTINE 

5403 F5 PUT WORD 

5404 C5 
25405 CD,5E,64 

25408 F5(D5) 

25409 50 

25410 47 

25411 CD,05,84 

25414 C5 

25415 CD,4D,64 

25418 2F 

25419 42 

25420 4F 

25421 CD,99,64 

25424 73(Clj !!ERRORS I ! 

25425 23(Dl) 

25426 72(73) 

25427 2B(23) 

25428 Cl(72) 

25429 FI(2B) 

25430 CD,99,64 

25433 Cl 

25434 FI 

25435 C9 


PUSH HL 
PUSH BC 
CALL 25694- 
PUSH AF 
LD D, B 
LD B, A 
CALL 25605 
PUSH BC 
CALL 25677 
CP L 
LD B, D 
LD C, A 
CALL 25753 
LD (HL), E 
INC HL 
LD (HL), D 
DEC HL 
POP BC 
POP AF 
CALL 25753 BANK 
POP BC 
POP AF 
RET 


ENABLE(OWNER ADD) 
(POP BC) 

(POP DE) 

(LD (HL) , E) 

(INC HL) 

(LD (HL), D) 

(DEC HL)- 
ENABLE 


(DE=WORD/HL=ADDR/B=BANK 

GET BANK #(OWNER ADDR) 
! !ERROR! ! (PUSH DE) 

GET STATUS(OWNER) 

GET CHUNK 

BANK 


DISPATCHER WRITE BANK STATUS REGISTER SUBROUTINE 


25436 F5 WRITE BS REG 

25437 C5 

25438 E5 

25439 62 

25440 2E,00 
25442 3A,00,CO 
25445 F5 


PUSH AF (REG ADDR=D/REG DATA=E) 
PUSH BC 
PUSH HL 
LD H, D 
LD L, O 

LD A, (49152) ARBITRARY ADDR 
PUSH AF WHICH IS SAVED AND RE- 
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25446 

7E 

25447 

F5 

25448 

3E , 07 

25450 

D3,F5 

25452 

DB,F6 

O »:r ^ cr /j 

47 

'"Uzr /i c cr 

zj4jj 

3E, OE 

25457 

D3, F5 

25459 

DB, F6 

25461 

4F 

25462 

3E, 07 

25464 

D3, F5 

25466 

3E, 40 

25468 

D3, F6 

25470 

3E , OE 

nr n —y 

-„i 4 / jL 

D3, F5 

25474 

AF 

25475 

D3, F6 

25477 

3E, 02 

25479 

32,00 . 

25482 

7B 

25483 

77 

25484 

CB, 2F 

25486 

CB, 2F 

25488 

CB, 2F 

25490 

CB, 2F 

25482 

77 

25493 

3E, 07 

25495 

D3, F5 

25497 

78 

25498 

D3, F6 

25500 

3E, OE 

25502 

D3, F5 

25504 

79 

25505 

D3,F6 

25507 

FI 

25508 

77 

25509 

FI 

25510 

32,00, 

25513 

El 

25514 

Cl 

25515 

FI 

25516 

C9 


LD A, (HL) STORED. 

PUSH AF 
LD A, 7 

OUT (245), A SOUND/STICK 
IN A, (246) 

LD B, A 
LD A, 14 

OUT (245), A SOUND 
IN A, (246) 

LD C, A 
LD A, 7 

OUT (245), A SOUND 
LD A, 64 

OUT (246), A 
LD A, 14 
OUT (245), A 
XOR A 

OUT (246), A 

LD A, 2 

LD (49152), A 

ADD A, E 

LD (HL), A 

SRA A 

SRA A 

SRA A 

SRA A 

LD (HL) ., A 
LD A, 7 

OUT (245), A SOUND ADDR RESTOF 
LD A, B 
OUT (246), A 
LD A, 14 

OUT (245), A SOUND ADDR 

LD A, C 

OUT (246), A 

POP AF 

LD (HL), A 

POP AF 

LD (49152), A 
POP HL 
POP BC 
POP AF 

RET . ) 


DISPATCHER READ BANK STATUS 

25517 F5 READ BS RES 

25518 C5 

25519 E5 

25520 62 

25521 2E,00 
25523 3A,00,CO 

25526 F5 

25527 7E 

25528 F5 

25529 3E,07 


RESISTER SUBROUTINE 

PUSH AF (DE = ADDR/BYTE=L) 
PUSH BC 
PUSH HL 
LD H, D 

LD L, O HL= MEM MAPPED ADDR 
LD A , (49152) 

PUSH AF 
LD A, (HL) 

PUSH AF 
LD A, 7 




25531 

D3,F5 

ncc-TT 

DB,F6 

25535 

47 — - 

25536 

3E,0E 

25538 

D3,F5 

25540 

BB,F6 

25542 

4F 

25543 

C5 

25544 

3E, 07 

25546 

D3,F5 

25548 

3E, 40 

25550 

B3,F6 

nccren 
X- U \J vJ xl 

3E,0E 

25554 

D3,F5 

ncrccr / 
iUJJO 

AF 

25557 

D3, F6 

25559 

3E , 02 

25561 

32,00,CO 

25564 

7E 

25565 

E6, OF 

25567 

4F 

25568 

63 

25569 

7E 

25570 

CB, 27 

25572 

CB, 27 

25574 

CB, 27 

25576 

CB, 77 

25578 

B1 

25579 

5F 

25580 

Cl 

25581 

3E, 07 

25583 

D3,F5 

25585 

78 

25586 

D3, F6 

25588 

3E,0E 

25590 

D3,F5 

25592 

79 

25593 

D3,F6 

25595 

FI 

25596 

77 

25597 

FI 

25598 

32,00,CO 

25601 

El 

25602 

Cl 

25603 

FI 

25604 

C9 

DISPATCHER GET 

25605 

F5 

25606 

D5 

25607 

78 

25608 

FE, FE 

25610 

28,2E(24) 

25612 

FE , FF 

25614 

28,ID(37) 


OUT (245), A SOUND ADDR 
IN A, (246) 

LD B, A 
LD A, 14 
OUT (245), A 
IN A, (246) 

LD C, A 
PUSH BC 
LD A, 7 
OUT (245), A 
LD A, 64 
OUT (246), A 
LD A, 14 
OUT (245), A 
XOR A CLEAR A 
OUT (246), A 
LD A, 2 
LD (49152), A 
LD A, (HL) 

AND 15 SAVE LOW NIBBLE 
LD C, A 
LD H, E 
LD A, (HL) 

SLA A 
SLA A 
SLA A 
SLA A 

OR C ADD C 
LD E, A 
POP BC 
LD A, 7 
OUT (245), A 
LD A, B 
OUT (246), A 
LD A, 14 
OUT (245), A 
LD A, C 
OUT (246), A 
POP AF 
LD (HL), A 
POP AF 

LD (49152), A 

POP HL 

POP BC 

POP AF 

RET 


BANK STATUS SUBROUTINE 

GET STATUS PUSH AF (BANK 
PUSH DE 
LD A, B 
CP 254 EROM? 


! !ERROR! ! 


JR Z, 46 (36) 
CP 255 HOME? 
JR Z, 29(55) 


# =B) 


((25648) 


EXT) 


! !ERROR! ! 


((25671) HOME) 
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25616.. 

25617 

25619 

25621 

25622 
25625 
25627 
25629 
25632 
25633. 

34 
256’"" 
256 

59 

25642 

25643 
25645 
25648 
25650 

25652 

25653 

25654 
25656 
25658 
25660 

25662 

25663 

25664 

25665 

25667 

25668 

25670 

25671 

25672 

25674 

25675 

25676 


A7 

28, IF 
16,80 
58 

CD, 5C 
16, 40 
IE, 80 
CD, AD 
7B 
2F 
4F 

16, AO 
IE, Cl 
CD, AD 
43 

18, ID 
01,00 
18 (OE 
DEf, F4 
2F < E6 
47 

OE (28 
18, 10 
DB(OE 
E6 (DB 
2F(E6 
07 

47 (20 
DB, F4 
2F 

E6(2F 

BO 

47 (DB 
OE, 00 
D1 
FI 
C9 


(27) !!ERROR!! 


, 63 


((25658) DOCK) 


,63 


UO 


) , 18(FF) !ERR! (EXT) 
(FF) REWRITE TO 
,80) END OF ROUT. 


), 00 ( 12 ) 

(08) 

) , FF 
) , 80(FF) 
,80) 

,08) 

(DB,F4) 

) ,01 (18,02) 


(DOCK) 


,F4) 

(4F) 


AND A A=0? 

JR Z, 31(39) 

LD D, 128 

LD E, B ANOTHER BANK 
CALL 25436 WRITE BS REG 
LD D, 64 
LD E, 128 

CALL 25517 READ BS REG 

LD A, E 

CP L 

LD C, A 

LD D, 160 

LD E, 192 

CALL 25517 READ BS REG 
LD B, E 

JR 29 (25674) EXIT 1 
LD BC, O 

JR 24 (LD C, 255) 

(244) (IN A, (255)) 


IN A, 
CP L 
LD B, 
LD C, 


A 

O 


(GET HS) 


A (JR NZ, 
(244) 


(HOME) 
(EXIT 0) 
(EXIT 1) 


(JR 

JR 16 (JR 
IN A, (255) 
AND 128 
CPL 
RLC A 
LD B, 

IN A, 

CPL 
AND 1 
OR B 
LD B, A 
LD C, O 
POP DE 
POP AF 
RET 


(AND 128) 

18 (25674) EXIT 
(25668) GET HS) 
(LD C, 255) 

(IN A, (255) 
(AND 128) 


1) 


8 (25674) 
(IN A, 


EXIT 1 


(CP L)(JR 2 (25672) EXIT 0 


(IN A, 
(LD C, 


(244)) 
A) 


DISPATCHER GET CHUNK SUBROUTINE 


/ 

25678 

25679 
25681 
25683 

25685 

25686 

25687 

25688 

25689 

25690 

25692 

25693 


C5 

7C 

06,05 
CB, 3F 
10, FC 
3C 
47 
AF 
37 
17 

10, FD 

Cl 

C9 


GET CHUNK 


SHIFT 


ROLL 


PUSH BC 
LD A, H 
LD B, 5 
SRL A 
DJNZ 254 
INC A 
LD B, 

XOR A 
SCF 
RL A 
DJNZ, 

POP BC 
RET 


ADDR=HL/A=MASK 


(25681) SHIFT 


(FIND 0 
IN MASK) 


A 

CLEAR 


A 


(25689) ROLL 


DISPATCHER GET BANK NUMBER SUBROUTINE 

GET BANK # PUSH BC 


ADDR=HL/A=BANK # 
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25695 

D5 



PUSH DE 

25696 

CD,4D,64 



CALL 25677 GET CHUNK 

25699 

4F 



LD C, A 

25700 

3A,15,63 



LD A, <25365) BS MAX BANK 

25703 

A 7 



AND A A=0? 

25704 

28,0A 



JR Z, 10 <25714) G# RD DOCK 

25706 

47 



LD B, A 

25707 

58 

G# 

CHECK 

LD E, B 

25708 

CD,05,64 



CALL 25605 GET STATUS 

25711 

A1 



AND C 

25712 

28,2o 



JR Z, 35 <25749) G# EXP FOUND 

25714 

1 0, F7 



DJNZ, 247 <25707) Gtt CHECK 

25716 

DB, F4 

6# R 

D DO Cb 

IN A, <244) HORIZ SEL REG 

25718 

2F 



CF'L 

25719 

A1 



AND C 


28, 18 



JR Z, 24 <25746) G# DOCK 

25722 

OD 



DEC C 

25723 

20, 1 1 



JF: NZ, 17 <25742) G# HOME LD 

**“» cr - «cr 

si U / U 

DB, FF 



IN A, <255) 

25727 

E6,80 



AND 128 SAVE HIGH BIT 

25729 

57 



LD D, A 

25730 

DB , F4 



IN A, <244) HORIZ SEL REG 

25732 

E6, 01 



AND 1 

25734 

OF 



RRC A 

2*^7 “T tr 

A2 



AND D 

25736 

28,04 



JR Z, 4 <25742) G# HOME LD 

r ? c ;77p 
X- _J / <_■ 

3E ? FE 



LD A, 254 

25740 

18,08 



JR 8 (25750) G# EXIT 

25742 

3E,FF 

G# HOME LD 

LD A, 255 

25744 

18,04 



JR 4 (25750) G# EXIT 

25746 

AF 

G# 

DOCK 

XOR A CLEAR A 

25747 

18,01 



JR 1 (25750) G# EXIT 

25749 

78 

G# EXP 

FOUND 

LD A, B RETURN EXP BANK # 

25750 

D1 

G# 

EXIT 

POP DE 

25751 

Cl 



POP BC 

25752 

C9 



RET 

DISPATCHER BANK 

ENABLE 

SUBROUTINE 

ncT7cr-7 

F5(00) !! 

ERROR! ! 

BANK 

ENABLE PUSH AF <NOF') B=BANK # 

25754 

C5 



PUSH BC C= HORIZ SEL 

25755 

D5 



PUSH DE . ' 

25756 

E5 



PUSH HL 

25757 

60(F3) 

!!ERROR 

1 1 

LD H, B <DI) 

25758 

oA, 15, tZ‘ 



LD A, (25365) BS MAX BANK 

25761 

A7 



AND A CLEAR FLAGS 

25762 

28, 11 



JR Z, 17 (25781) SKIP 

25764 

16, SO 



LD D, 128 

25766 

IE, 00 



LD E, 0 

25768 

CD,5C,63 



CALL 25436 WRITE BS REG 

25771 

16, AO 



LD D, 160 

25773 

F5 



PUSH AF 

25774 

79 



LD A, C 

25775 

2F 



CP L 

25776 

5F 



LD E, A 

25777 

FI 



POP AF 



25778 

CD, 5C , 6 : 

25781 

78 

25782 

A7 

25783 

20 , 1 1 

25785 

79 

25786 

FE, FF 

25788 

28,06 

25790 

DB, FF 

25792 

CB, BF 

25794 

D3, FF 

25796 

79 

7Q7 

2 F 

25798 

D3, F4 

25800 

18, F4 

25802 

78 

25303 

FE, FE 

25805 

20 , ID 

25807 

DB, FF 

25809 

17 

25310 

CB, 19 

25812 

3F 

25313 

IF 

25814 

D3, FF 

25316 

CB, 7F 

25818 

20 , 08 

25820 

DB, F4 

25822 

CB, 87 

25824 

D3, F4 

ncrnn / 

Jl. O 

18, 35 

25828 

DB, F4 

25830 

CB, C7 

25832 

D3, F4 

25S34 

18, 2D 

25836 

DB , F4 

25838 

2F 

25839 

5F 

25840 

79 

25341 

2F 

25342 

B3 

25843 

2F 

25844 

D3, F4 

25846 

CB, 4 1 

p nr p /J_ Q 

20, OC 

OcrncA 

jL. 

DB, FF 

ncrntr n 
Z-JC'-Jxl 

CB, BC 

25854 

DB, FF 

25856 

DB, F4 

25858 

CB, 87 

25860 

D3, F4 

25362 

78 

25863 

FE, FF 

25S65 

28, OE 

25867 

16, SO 

25369 

58 

25870 

CD,5C,63 


SKIP 


EXT OK 


NEXT DOCK 


SET 


NEXT EXT 


CHK HONE 


CALL 25436 WRITE BS REG 

LD A, B 

AND A A= O? 

JR NZ, 17 (25802) NEXT DOCK 
LD A, C 
CP 255 

JR Z, 6 (25784) EXT OK 
IN A, (255) 

RES 7, A 
OUT (255), A 
LD A, C 
CPL 

OUT (244), A ENABLE DOCK 
JR 79 (25881) EXIT 
LD A, B CK IF EXTENSION 
IN A, (255) 

RL A 
RR C 
CCF 
RR C 
CCF 
RR A 

OUT (255), A 
BIT 7, A 

JR NZ, 8 (25828) SET 
IN A, (244) 

RES O, A 

OUT (244), A 

JR 53 (25881) EXIT 

IN A, (244) HORIZ SEL REG 

SET O, A 

OUT (244), A DISABLE DOCK 
JR 45 (25881) EXIT 

IN A, (244) HORIZ SEL REG 

CPL 

LD E, A 

LD A, C 

CPL 
OR E 
CPL 

OUT (244), A 
BIT O, C 

JR NZ, 12 (25862) CHK HOME 
IN A, (255) DISABLE EXTEND 
RES 7, A 
OUT (255), A 
IN A, (244) 

RES O, A 
OUT (254), A 
LD A, B 
CP 255 

JR Z, 14 (25881) EXIT (HOME) 
LD D, 128 
LD E, B 

CALL 25436 WRITE BS REG (NEW) 
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ncn- 7 T 
i.JO / _• 

16,40 


LD D, 64 


25875 

79 


LD A, C 


25376 

2F 


CPL 


25877 

5F 


LD E, A 


d*=:q7q 
ijo / a 

CD , 5C,63 


CALL 25436 WRITE 

BS REG 

ncQO 1 

w< U.* l_» 1 

El 

EXIT- 

POP HL 


ncrqon 

u_ _J O •_.* -C_ 

D1 


POP DE 


25883 

Cl 


POP BC 


25884 

FI(FB) !! 

ERROR! ! 

POP AF (El) 


25885 

C9 


RET 


DISPATCHER SAVE 

BANK STATUS SU 

BROUTINE 


25886 

F5 SAVE 

BANK STATUS 

PUSH AF 


25837 

C5 


PUSH BC 


*”> coon 

J O O O 

D5 


PUSH DE 


25339 

DB,FF 


IN A, (255) 


25891 

00,00 


NOP 


25893 

00,77,00 


LD (IX+O), A 


25896 

00,23 


INC IX 


25898* 

DB, F4 


IN A, (244) HORI2 SEL REG 

25900 

00*, 77,00 


LD (IX+O), A 


25903 

DD, 23 


INC IX 


25905 

3A* 15,63 


LD A, (25365) BS 

MAX BANK 

25908 

A7 


AND A A=0? 


25909 

28, 00 


JR Z, 13 (25924) 

SS EXIT 

2591 1 

47 


LD B, A 


25912 

58 

SS LOOP 

LD E, B 


25913 

CD,05,64 


CALL 25605 GET STATUS 

25916 

00,71,00 


LD (IX+O), C 


25919 

DD , 23 


INC IX 


25921 

43 


LD B, E 


cr cp ^7. 

10, F4 


DJNZ, 244 (25922 

) SS LOOP 

nnrnn n 

z. J7 z.4 

DD, 2B 

SS EXIT 

DEC IX 


25926 

01 


POP DE 


25927 

Cl 


POP BC 


25928 

FI 


POP AF 


25929 

C9 


RET 


DISPATCHER RESTORE STATUS SUBROUTINE 


25930 

F5(F3)!!ERROR!! RESTORE 

STATUS PUSH AF 

(DI) 

25931 

C5 


PUSH BC 


ncrg-rn 

D5 


PUSH DE 


25933 

DD,7E,00 


LD A, (IX+O) 


25936 

D3, FF 


OUT (255), A 


25938 

DD, 23 


INC IX 


25940 

DD, 7,00 


L_D A, (IX+O) 


25943 

D3, F4 


OUT (244), A 


25945 

DD, 23 


INC IX 


25947 

3A,15,63 


LD A, (25363) BS 

MAX BANK 

25950 

A7 


AND A A=0? 


25951 

28, OB 


JR Z, 11 (25964) 

RS EXIT 

25953 

47 


LD B, A 


25954 

DD,4E,00 

RS LOOP 

LD C, (IX+O) 


25957 

CD,99,64 


CALL 25753 BANK 

ENABLE 

25960 

DD, 23 


INC IX 






25962 

10, F6 

DJNZ, 246 

25964 

DD,2B RS EXIT 

DEC IX 

25966 

D1 . 

POP DE 

^crg/. - 7 

Cl 

POP BC 

2596S 

Fl(FB) !!ERROR!! 

POP AF 

25969 

C9 

RET 

DISPATCHER GOTO BANK ROUTINE 
25970 DD,21,00,00 GOTO BANK 

LD IX, 0 
ADD IX, SP 

25974 

DD, 39 

25976 

DD,71,00 

LD (IX+2), 
LD (I X +1) , 
LD C, (IX+: 

2 c ;97Q 

DD,70,01 

v-J . 

DD,4E,02 

■7^oO«~ 

DD,46,03 

LD B, (IX+: 

25988 

CD,99,64 

LALL 25752* 

2599 1 

Cl 

POP BC 

9^999 

DD, El 

POP IX DI! 

25994 

DD, El 

POP IX 

r? crpq /_ 

DD,E9 JP(IX) 

JP (IX) 


185 

-5954) RS LOOP 


(El) 


BANK/HQRIZ 

C 

B 

2 ) 

5) 

BANK ENABLE 
BOARD 


SEL REG 
STACK 


ON 


THE BANK SWITCH STACK 
25997-26060 FF OR 00 
26062 CE,65 


(WORKS FROM THE BOTTOM UP) 

GENERALLY EMPTY OR DATA FROM l AST 
BS SF' (26062) i top 


CALL 

BANK SUBROUTINE 

26064 

E3 CALL 

26065 

DD,2A,CE,65 

26069 

DD, 2B 

26071 

DD,74,00 

26074 

DD, 2B 

26076 

DD,75,00 

26079 

El' 

260SO 

E3 

26081 

DD, 2B 

26083 

DD,74,00 

26086 

DD, 2B 

26088 

DD,75,00 

26091 

DD,22,CE,65 

26095 

D5 

26096 

C5 

26097 

F5 

26098 

21,00,00 

26101 

39 

26102 

54 

26103 

5D 

26104 

3A,15,63 

26107 

4F 

26108 

06, 00 

26110 

03 

26111 

03 

26112 

A7 

26113 

ED, 52 

26115 

F9 

26116 

DD,21,00,00 

26120 

DD, 19 


EX (SP) , HL PUSHED ON STACK 
LD IX, (26062) BANK #/H0RI2 SEL R 
DEC IX PRM OUT/PRM IN 

LD (IX +0) , H 
DEX IX 


LD (IX+O), L PUSH HL IN BS STACK- 
POP HL 

EX (SP), HL GET PRM IN 
DEC IX 

LD (IX+O), H PRM IN TO BS STACK- 
DEC I X 

LD (IX+O), L 

L-D (26062), IX UPDATE BS SP 
PUSH DE SAVE REGISTERS 
PUSH BC 


PUSH AF 


LD HL, 
ADD HL 
LD D, 
LD E, 
LD A, 
LD C, 
LD B, 
INC BC 
INC BC 
AND A 
SBC HL 
LD SP, 
LD IX, 
ADD IX 


O . i 

, SP 

H SP TO DE 

L 

(25365) BS MAX BANK 
A 

O MAX BANK # TO BC 

MAX BANK # + 2 
CLEAR FLAGS 

, BC IF MAX BANK=0,HL=SP 
HL ELSE 1 ADDR LESS/# 

O 

, DE 


(DE=SP) 
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26122 

EB 


EX DE, HL 

26123 

DD,4E,08 


LD *G, (IX+8) PRM OUT 

26126 

DD,46,08(09) 

ERROR! ! 

LD B, (IX+8(9)) PRM OUT 

26129 

3E,0E 


LD A, 14 14 SPACES + BANKSX2 

26131 

81 


ADD A, C 

26132 

4F 


LD C, A 

26133 

30,01 


JR NC, 1 (26136) NO CARRY 

26135 

04 


INC B 

26136 

ED, BO 

NO CARRY 

LDIR MAKE ROOM FOR BANK STATUS 

26133 

D5 


PUSH DE 

26139 

DD, El 


POP IX IX=DE 

26141 

CD,IE,65 


CALL 25886 SAVE STATUS 

26144 

DD,21,00,00 


LD IX, 0 

26148 

DD, 39 


ADD IX, SP 

26150 

DD,4E,0A 


LD C, (IX+10) HORIZ SEL REG 

26153 

DD,46,OB 


L.D B, (IX+11) BANK 

26156 

CD,99,64 


CALL 25753 BANK ENABLE 

26159 

FI 


POP AF 

26160 

Cl 


POP BC 

26161 

D1 


POP DE 

26162 

El 


POP HL 

26163 

DD, El 


POP IX DISCARD (GENERALLY 0) 

26165 

DD, El 


POP IX DISCARD 

26167 

DD, El 


POP IX 

26169 

CD,BC,65 


CALL 25996 JP (IX) 

26172 

F5 


PUSH AF 

26173 

C5 


PUSH BC 

26174 

D5 


PUSH DE 

26175 

E5 


PUSH HL 

26176 

DD,2A,CE,65 


LD IX, (26062) BS SP 

26 ISO 

DD,4E,00 


LD C, (IX+O) DESTINATION ADDR 

26183 

DD, 23 


INC IX 

26185 

DD,46,00 


LD B, (IX+O) 

26188 

DD, 23 


INC IX 

26190 

DD, 22,CE,65 


LD (26062), IX BS SP 

26194 

DD,21,00,00 


LD IX, 0 

26198 

DD, 39 


ADD IX, SP 

26200 

3E, 08 


LD A, 8 

26202 

81 


ADD A, C 

26203 

4F 


LD C, A 

26204 

30,01 


JR NC, 1 (26207) NO CARRY-2 . i 

26206 

04 


INC B 

26207 

DD,09 NO 

CARRY-2 

ADD IX, BC 

26209 

DD, E5 


PUSH IX 

26211 

El 


POP HL HL=IX 

26212 

2B 


DEC HL 

26213 

CD,4A,65 


CALL 25930 RESTORE STATUS 

26216 

DD, E5 


PUSH IX 

26218 

D1 


POP DE DE=IX 

26219 

ED, B8 


LDDR 

26221 

EB 


EX DE, HL 


n-r 


INC HL 

26223 

F9 


LD SP, HL RESTORE SP 

26224 

DD,2A,CE,65 


LD IX, (26062) BS SP 

26228 

DD,4E,00 


LD C, (IX+O) 
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26231 DD,23 
26233 DD,46,00 
26236 DD,23 
26238 DD,22,CE,65 

26242 C5 

26243 DD,E1 

26245 El 

26246 D1 

26247 Cl 

26248 FI 

26249 DD,E5 
26251 C9 


DISPATCHER MOVE 


r> ncrn 

E5 

26253 

D5 

26254 

C5 

26255 

48 

26256 

DD,46,09 

26259 

CD,99,64 

26262 

42 

26263 

4B 

26264 

DD,5E,00 

26267 

DD,56,01 

26270 

DD,6E,06 

Oi,'T 7 
uL / - 

DD,66,07 

26276 

07 

26277 

OF 

26278 

38,05 

26280 

ED, BO 

/. r> o 

09 

26283 

18,05 

26285 

ED, B8 

26287 

A7 

26288 

ED, 42 

26290 

DD,75,06 

26293 

DD,74,07 

26296 

Cl 

26297 

El 

26298 

E5 

26299 

C5 

26300 

DD,46,03 

26303 

CD,99,64 

26306 

44 

26307 

4D 

26308 

DD,5E,04 

26311 

DD,56,05 

26314 

DD,6E,00 

26317 

DD,66,07 

26320 

07 

26321 

OF 

26322 

38,05 

26324 

ED, BO 

26326 

09 

26327 

18,05 


BYTES ROUTINE 
MOVE BYTES 


REVERSE 1 


UP 1 


INC IX 


LD B, (IX+O) 


INC IX 

LD (26062), IX UPDATE BS SP 
PUSH BC 

POP IX IX=BC 


POP HL 
POP DE 


POP BC 
POP AF 
PUSH IX 


RET TO IX ADDR 


PUSH HL DE=# OF BYTES, A=UP/DOWN 

PUSH DE 

PUSH BC 

LD C, B 

LD B, (IX+9) 

CALL 25753 BANK ENABLE 
LD B, D 
LD C, E 
LD E, (IX+O) 

LD D, (IX+1) 

LD L, (IX+6) 

LD H, (IX+7) 

RLC A CHECK BIT 7 
RRC A 

JR C, 5 (26285) REVERSE 1 
LDIR 

ADD HL, BC INC POINTER 
JF; 5 (26290) UP 1 
LDDR 


AND A CLEAR FLAGS 
SBC HL, BC 

LD (IX+6), L DEST ADDR 

LD (IX+7), H 

POP BC UPDATE HL & BC 


PUP HL 
PUSH HL 
PUSH BC 
LD B, (IX+8) 

CALL 25753 BANK ENABLE 


LD B, 
LD C, 
LD E, 
LD D, 
LD L, 
LD H, 
RLC A 
RRC A 


H 

L 

(IX+4) DEST ADDR 
(IX+5) 

(IX+O) BUFF POINTER 
(IX+1) 

TEST BIT 7 (ON=DOWN> 


JR C, 5 (26329) REVERSE 2 
LDIR 

ADD HL, BC 

JR 5 (26334) UP 2 







26329 

ED, B8 

26331 

A7 

26332 

ED, 42 

26334 

DD,75,04 

26337 

DD,74,05 

26340 

Cl 

26341 

D 1 

26342 

El 

26343 

C9 

DISPATCHER GREAT 

26344 

54 

26345 

5D 

26346 

DD,4E,02 

26349 

DD,46,03 

-i— 1 —> 

DD,76,00 

26355 

07 

26356 

OF 

26357 

38,03 

26359 

09 

26360 

18, 02 

26362 

ED,42 

26364 

CD,4D,64 

26367 

2F 

26368 

4F 

26369 

EB 

26370 

CD,4D,64 

26373 

opr 

26374 

4F 

26375 

A8 

26376 

28, 16 

26378 

79 

26379 

AO 

26380 

47 

26381 

OE, 00 

26383 

37 

26384 

78 

26385 

CB, 1 1 

26387 

A1 

26388 

20, FA 

26390 

78 

26391 

CB, 11 

26393 

A1 

26394 

28,04 

26396 

AS 

26397 

47 

26398 

18,F6 

26400 

78 

26401 

C9 


REVERSE 2 LDDR 

AND A CLEAR FLAGS 
SBC HL, DE 

UP 2 LD (IX+4), L DEST ADDR 
LD (IX+5), H 
POP BC 
POP DE 
POP HL 
RET 


BITMAP SUBROUTINE 


GREAT BITMAP 


SUB 

CONTINUE 


LD D, 
L_D E, 
LD C, 
LD B, 
LD A, 
RLC A 
RRC A 


H HL=ADDR, A=BITMAP 
L 

(IX+2) LENGTH 
(IX+3) 

(IX+O) DIRECTION 

TEST BIT 7(DIRECTION) 


JR C, (26362) SUB 
ADD HL, DE 

JR 2 (26364) CONTINUE 
SBC HL, DE 

CALL 25677 GET CHUNK(END CHUNK) 
CPL 


LD B, A 
EX DE, HL 

CALL 25677 GET CHUNK(START CHUNK 
CP L 
LD C, A 

XOR B BC=0? 

JR Z, 22 (26400) EXIT 

LD A, C 

AND B 

LD B, A 

LD C, 0 

SCF 

NB 1 LD A, B 
RL C 
AND C 

JR NZ, 250 (26384) NB 1 
NB 2 LD A, B 
RL C 
AND C 

JR Z, 4 (26400) EXIT 
XOR B 
LD B, A 

JR 246 (26390) NB 2 
EXIT LD A, B 
RET 


DISPATCHER XFER BYTES ROUTINE 

26402 F5 XFER BYTES 

26403 C5 

26404 D5 

26405 E5 


PUSH AF ON STACK:DIRECTION, LEN, 
PUSH BC DEST ADDR, SORCE ADDR, 
PUSH DE DEST BANK,SOURCE BANK, 
PUSH HL STATUS= A 
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26406 

21,00,00 


LD HL, 0 

26409 

39 


ADD HL, SP 

26410 

11,0A,00 


LD DE, 10 NEED 10 BYTES 

26413 

19 


ADD HL, DE MOVE HL TO 1ST DATA 

26414 

EB 


EX DE, HL BYTE 

26415 

3A,15,63 


LD A, (25365) BS MAX BANK 

26418 

4F 


LD C, A 

26419 

06,00 


LD B, 0 

26421 

21,00,00 


LD HL, 0 

26424 

39 


ADD HL, SP 

26425 

A 7 


AND A CLEAR FLAGS 

26426 

ED, 42 


SBC HL, BC 

26428 

2B 


DEC HL 

26429 

2B 


DEC HL 

26430 

E5 


PUSH HL 

26431 

DD, El 


POP IX IX=HL 

26433 

DD, F9 


LD SP, IX 

26435 

CD,IE,65 


CALL 25SS6 SAVE STATUS 

26438 

D5 


PUSH DE 

26439 

DD, El 


POP IX IX =DE 

26441 

DD,6E,06 


LD L, (IX+6) 

26444 

DD,66,07 


LD H, (IX+7) 

26447 

CD, ES, 6t> 


CALL 26344 CPEAT BITMAP 

26450 

F5 


PUSH AF 

26451 

DD,6E,04 


LD L, (IX+4) 

26454 

DD,66,05 


LD H, (IX+5) 

26457 

CD, E8,66 


CALL 26344 GREAT BITMAP 

26460 

4F 


LD C, A 

26461 

FI 


POP AF 

26462 

47 


LD. B, A 

26463 

DD,7E,09 


LD E, (IX+9) 

26466 

DD,56,08 


LD D, (IX+S) 

26469 

BA 


CP D 

26470 

20,05 


JR NZ, 5 (26477) DIFFERENT BANK 

26472 

78 


LD A, B 

26473 

A1 


AND C 

26474 

47(5F) 


LD B, A (LD E, A) 

26475 

18, OB 


JR 11 (26488) DO MOVE 

26477 

78 

DIFFERENT BANK 

L_D A, B 

26478 

B1 


OR C BC= 0? 

26479 

FE, FF 


CP 255 

26481 

20 , 2D 


JR NZ, 45 (26528) OVERLAP 

26483 

58 


LD E, B 

26484 

42 


LD B, D 

26485 

CD,99,64 


CALL 25753 BANK ENABLE 

26483 

DD,46,09 

DO MOVE 

LD B, (IX+9) 

26491 

4B 


L.D C, E 

26492 

CD,99,64 


CALL 25753 BANK ENABLE 

26495 

DD,6E,06 


LD L, (IX+6) SOURCE ADDR 

26498 

DD,66,07 


LD H, (IX+7) 

26501 

DD,5E,04 


LD E, (IX+4) DESTINATION ADDR 

26504 

DD,56,05 


LD D, (IX+5) 

26507 

DD,4E,02 


LD C, (IX+2) LENGTH 

26510 

DD ,46 ? 03 


LD B, (IX+3) 

26513 

DD,7E,00 


LD A, (IX+O) DIRECTION 





ro ro ro 
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26516 

07 

26517 

OF 

26518 

38 , 04 

26520 

ED, BO 

26522 

18,52 

26524 

ED, B8 

26526 

18,4E 

26528 

21,CO,5C 

26531 

C5 

26532 

06, FF 

26534 

CD,16,63 

/ 

Cl 

*_ J ‘..J 

11,00,02 

26541 

A7 

26542 

ED, 52 

26544 

11,20,00 

i-u-JM- / 

19 

26548 

EB 

26549 

21 , 00 , 00 

26552 

39 

26553 

13 

26554 

A7 

26555 

ED, 52 

26557 

30,04 

26559 

3E, 01 

26561 

18, 2B 

26563 

IB 

26564 

EB 

26565 

F9 

26566 

13 

26567 

DD,7E,00 

26570 

DD , 75 , 00 

26573 

DD,74,01 

26576 

DD,6E,02 

26579 

DD,66,03 

26582 

A7 

26583 

ED, 52 

26585 

38,05 

265S7 

CD,8C,66 

26590 

18,F6 

26592 

19 

26593 

EB 

26594 

CD,8C,66 

26597 

EB 

26598 

DD,6E,00 

26601 

DD,66,01 

26604 

19 

26605 

F9 

26606 

AF 

26607 

DD,21,00, 

26611 

DD, 39 

26613 

CD,4A,65 

26616 

DD, 23 

26618 

DD, F9 

26620 

El 


REVERSE 

OVERLAP 


SPACE 


MOVE LOOP 

LAST MOVE 


EXIT 

00 


RLC A TEST BIT 7 
RRC A 

JR C, 4 (26524) REVERSE 
LDIR 

JR 82 (26606) EXIT 
LDDR 

JR 78 (26606) EXIT 
LB HL, 23744 MACH STK BOTTOM 
PUSH BC 
LD B, 255 

CALL 25366 GET WORD 
POP BC 

LD DE, 512 SKT SIZE 
AND A CLEAR FLAGS 

SBC HL, DE HL=ADDR OF STK LIMIT 
LD DE, 32 FREE BYTES 
ADD HL, DE DE =NEW SP 
EX DE, HL 
LD HL, O 

ADD HL, SP HL =OL.D SP 
INC DE 

AND A CLEAR FLAGS 
SBC HL, DE 

JR NC, 4 (26563) SPACE 

LD A, 1 RET ERR 

JR 43 (26606) EXIT 

DEC DE 

EX DE, HL 

LD SP, HL 

INC DE 

LD A, (IX+O) DIRECTION 

LD (IX+O), L BUFFER POINTER 

LD (IX+1), H 

LD L, (IX+2) LENGTH 

LD H, (IX+3) 

AND A CLEAR FLAGS 
SBC HL, DE 

JR C, 5 (26592) LAST MOVE 
CALL 26252 MOVE BYTES 
JR 246 (26582) MOVE LOOP 
ADD HL, DE 

EX DE, HL i 

CALL 26252 MOVE BYTES 
EX DE, HL 

LD L, (IX+O) BUFFER POINTER 
LD H, (IX+1) 

ADD HL, DE 
LD SP,'HL 
XOR A CLEAR A 
LD IX, 0 
ADD IX, SP 

CALL 25930 RESTORE STATUS 
INC IX 
LD SP, IX 
POP HL 





26621 

D1 


26622 

Cl 


26623 

Fl 


26624 

DD, 

El 

26626 

DD, 

E3 

26628 

DD, 

El 

26630 

DD, 

E3 

26632 

DD, 

El 

26634 

DD, 

E3 

26636 

DD, 

El 

26638 

DD, 

E3 

26640 

DD, 

El 

26642 

DD, 

C7 

i—. •-.* 

26644 

C9 



POP 

DE 


POP 

BC 


POP 

AF 


POP 

IX 


EX 

(SP) , 

IX 

POP 

IX 


EX 

(SP) , 

IX 

POP 

IX 


EX 

(SP) , 

IX 

POP 

IX 


EX 

(SP) , 

IX 

POP 

IX 


EX 

RET 

(SP) , 

IX 


2664 ' 


DD, El 


POP IX THRASH RET ADDR 


DISPATCH SOURCE 

26647 F5 

26648 DB,FF 
26650 CB,FF 
26652 D3,FF 
26654 3E,01 
26656 D3,F4 

26658 Fl' 

26659 E9 


STATEMENT 


PUSH AF 
IN A, (255) 
SET 7, A 
OUT (255), A 
LD A, 1 
OUT (244), A 
POP AF 
JP (HL) 


?6660—26687 


NOT USED 


CHANNEL TABLE 
26688-26709 


SEE ADDR 4522 FF FOR INITIAL SETUP 


26710 NORMAL START OF BASIC PROGRAM 






DISASSEMBLY OF EXTENDED ROM 
RESTART ROUTINES 


0000 

F3 RST 

0 START UP 

0001 

18,46 


0003- 

-0007 FF 


ERROR RESTART 


0008 

2A,5D,5C 

RST 8 ERROR 

001 1 

22,58,58 


001 4 

El 


0010 

6E 


0016 

FD,75,00 


0019 

ED,7B,3D,5C 


0023 

21,54,13 


0026 

E5 


0027 

26,FF GOTO 

HOME BANK 

0029 

2E, 00 


0031 

E5 


0032 

F5 


0033 

3A,02,50 


0036 

A 7 


0037 

00 


0038 

28, 04 


0040 

FI 


004 1 

00,72,65 


0044 

FI 

E MODE 0 

0045 

00,72,65 


0048- 

-0055 FF 


INTERRUPT RESTART 


0056 

F5 RST 56 


0057 

F3 


0058 

3A,C2,5C 


0061 

A7 


0062 

00 


0063 

28,04 


0065 

FI 


0066 

C3,6E,FA 


0069 

FI 

I-RST MODE 

0070 

C3,AE,62 


STARTUP ROUTINE CONTINUED 

0073 

3E, 01 


0075 

D3, F4 


0077 

18 , OB 


0079 

AF SET HORIZ SEL REG 

0080 

D3,F4 


0082 

D3, FF 


0084 

11,FF,FF 


0087 

C3,4F,00 


0090 

21,4F,00 

XFER 

0093 

11,00,60 


0096 

01,OB,00 


0099 

ED, BO 


0101 

C3,00,60 
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DI 

JR 70 (73) START UP CONTINUED 
(UNUSED) 


LD HL, (23645) CHAR ADDR 
LD (23647), HL X POINTER 
POP HL 
LD L, (HL) 

LD (IY+O), L ERR # 

LD SP, (23613) ERR SP 

LD HL, 4948 RESET 

PUSH HL 

LD H, 255 

LD L, 0 

PUSH HL 

PUSH AF 

LD A, (23746) VID MODE 
AND A A=0? 

NOP 

JR Z, 4 (0044) MODE O 
POP AF 

CALL 64818 HIGH GOTO BANK 
POP AF 

CALL 25970 GOTO BANK 
UNUSED 


PUSH AF 
DI 

LD A, (23746) VID MODE 
AND A A=0? 

NOP 

JR Z, 4 (0059) MODE 0 
POP AF 

JP 64110 INTERRUPT HIGH 
POP AF 

JP 25262 INTERRUPT LON 


L.D A, 1 

OUT (244), A HORIZ SEL REG 

JF; 11 (0090) XFER 

XOF; A CLEAR A ?•< CARRY 

OUT (244), A 

OUT (255), A 

LD DE, 255/255 BANK #/ 

JP 3377 HOME INITIALIZATION 

LD HL, 79 XFER 79-87 TO 24576FF 

LD DE, 24576 

LD BC, 11 

LDIR 

JP 24576 
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SAVE 
0104 
0107 
0108 
0111 
0113 
0115 

011 s 

0119 
0120 
0122 
0123 
0125 
0126 
0128 
0130 
0132 
0134 
0135 
0137 
0138 
0139 
0142 
0144 
0146 
0148 
0150 
0152 
0154 
0156 
0159 
0.160 
0161 
0164 
0165 
0166 
0168 
0171 
0172 
0173 
0174 
0176 
0177 
0180 
0181 
0183 
0184 
0186 
0188 
0190 
0192 
0194 
0196 


CASSETTE HANDLING ROUTINES 
BYTES SUBROUTINE 


21,E5,00 
E5 

21,80,IF 
CB,7E 
28,03 
21,98,OC 


13 

DD, 2B 
F3 

3E, 02 
47 

10,FE SAVE LEADER WAIT 

DE, FE 
EE, OF 
06, A4 
2D 

20, F5 


F2,7E,00 
06,2F 
10, FE 
3D, FE 
3E, OD 
06,37 
10, FE 
D3, FE 
O1,OE,3B 
08 
6F 

C3,AD,00 

7A 

B3 

28, OC 

DD,6E,00 

7C 

AD 

67 

3E, 01 
37 

C3,CB,00 
6C 

18, F4 
79 

CB, 78 
10, FE 
30, 04 
06, 42 
10, FE 
D3, FE 
06,3E 


WRITE TAPE LD HL, 229 WRITE BORDER (S/L RET) 
PUSH HL 

LD HL, 8064 5 SEC HEADER LEADER 
BIT 7, A 

JR Z, 3 (0115) SAVE FLAG 
LD HL, 3224 2 SEC LEADER FOR PRO¬ 
SAVE FLAG EX AF, AF’ GRAM/DATA BLOCK 

INC DE 
DEC IX 
DI 

LD A, 2 SIGNAL MIC ON 
LD B, A 

ADER WAIT DJNZ, 254 (0126) 

OUT (254), A MIC OFF/BORDER CYAN 
XOR 15 SAVE LOW NIBBLE 
LD B, 164 
DEC L 

JR NZ, 245 (0126) SAVE LEADER 
DEC B 
DEC H 

JR F', 126 SAVE LEADER 

LD B, 47 SYNC PLJSLE 

SYNC-1 DJNZ, 254 (0144) SYNC-1 

OUT (254), A MIC ON-RED 
L.D A, 13 MIC OFF-CYAN 

LD B, 55 MIC ON(TIME) 

SYNC-2 DJNZ, 254 (0152) SYNC-2 

OUT (254), A MIC OFF-CYAN 
LD BC, B=TIME C=MIC OFF-YELLOW 
EX AF, AF 7 
LD A, L 

JP 173 SAVE START 
SAVE LOOP LD A, D 

OR E DE=0? 

JR Z, 12 (0180) SAVE PARITY 
LD L, (IX+O) NEXT BYTE 
VE LOOP P LD A, H CURRENT PARITY 
XOR L 

AVE START LD H, A RESTORE PARITY 
LD A, 1 MIC ON-BLUE 
SCF MARKER FOR 8 BITS OF BYTE 
JP 203 SAVE 8 BITS 
E FARITY LD L, H 

JR 244 (0168) SAVE LOOP F' 

E BIT 2 LD A, C 

BIT 7, B 

AVE BIT DJNZ, 254 (0186) SAVE BIT 

JR NC, 4 (0194) SAVE OUT 
LD B, 66 

AVE SET DJNZ, 254 (0192) SAVE SET 

AVE OUT OUT (254), A 

LD B, 62 TIMING CONSTANT 2ND PASS 


SYNC-2 


SAVE LOOP 


SAVE LOOP P 


SAVE START 


SAVE FARITY 


SAVE BIT 2 
SAVE BIT 


SAVE SET 
SAVE OUT 
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0198 20,EF 
0200 25 
0201 AF 
0202 3C 

0203 CB,15 SAVE 8 BITS 

0205 C2,BA,00 

0208 IB 

0209 DD,23 

0211 06,31 

0213 3E,7F 

0215 DB,FE 

0217 IF 

0218 DO 

0219 7A 

0220 3C 

0221 C2,A4,00 

0224 06,3B 

0226 10,FE SAVE DELAY 

0228 C9 

SAVE/LOAD RETURN ROUTINE 

0229 F5 WRITE BORDER 

0230 3A,48,50 

0233 E6,38 

0235 OF 

0236 OF 

0237 OF 

0238 D3,FE 

0240 3E,7F 

0242 DB,FE 

0244 IF 

0245 FB 

0246 38,02 

0248 OF ERR D 

0249 00 

0250 FI RETURN 

0251 09 

LOAD BYTES SUBROUTINE 

0252 14 READ TAPE 

0253 08 

0254 15 

0255 F3 

0256 3E,OF 

0258 D3,FE 

0260 21,E5,00 

0263 E5 

0264 DB,FE 

0266 IF 

0267 E6,20 

0269 F6,02 

0271 4F 

0272 BF 

0273 CO LOAD BREAK 

0274 CD,8D,01 LOAD START 


JR NZ, 239 (0183) SAVE BIT 2 
DEC B 

XOR A CLEAR A 
INC A A=1 
RL L 

JP NZ, 186 (0133) SAVE BIT 2 
DEC DE BYTE COUNTER 
INC IX ADVANCE BASE ADDR 
LD B, 49 

LD A, 127 BREAK 
IN A, (254) BREAK? 

RR A 
RET NC 
LD A, D 
INC A 

JP NZ, 164 SAVE LOOP 
LD B, 59 

DJNZ, 254 (0226) SAVE DELAY 
RET 


PUSH AF 

LD A, (23624) BORDER COLOR 
AND 56 SAVE COLOR ONLY 
RRC A DIVIDE BY 8 
RRC A 
RRC A 

OUT (254), A SEND COLOR 
LD A, 127 
IN A, (254) 

RR A 
El 

JR C, 2 (0250) RETURN 
RST 8 ERROR 
D BREAK—CONT repeats 
POP AF 
RET 


INC D 

EX AF, AF ? A=0 FOR HEADEER 

DEC D A=FF FOR DATA 

DI CARRY OFF = VERIFY 

LD A, 15 

OUT (254), A 

LD HL, 229 WRITE BORDER 

PUSH HL RETURN ADDR 

IN A, (254) 

RR A 

AND 32 SAVE 5TH BIT 
OR 2 SET BIT 1 (RED) 

LD C, A 2=0N, 34=0FF 
CP A (SET ZERO FLAG) 

RET NZ (IF BREAK) 

CALL 397 READ EDGE 





0277 

30, FA 

027? 

21,15,04 

0282 

10, FE 

0284 

2B 

0285 

7C 

0286 

B5 

0287 

20, F9 

0289 

CD,89,01 

0292 

30, EB 

0294 

06,9C 

0296 

CD,89,01 

0299 

30, E4 

0301 

36, C6 

0303 

B8 

0304 

30, EO 

0306 

24 

0307 

20, F1 

0309 

06, C9 

031 1 

CD,8D,01 

0314 

30, D5 

0316 

78 

0317 

FE, D4 

0319 

30, F4 

0321 

CD,SD,01 

0324 

DO 

0325 

79 

0326 

EE, 03 

0328 

4F 

0329 

26,00 

0331 

06, BO 

0333 

18, IF 

0335 

08 

0336 

20,07 

0338 

30, OF 

0340 

DD,75,00 

0343 

18, OF 

0345 

CB, 1 1 

0347 

AD 

0348 

CO 

0349 

79 

0350 

IF 

0351 

4F 

0352 

13 

0353 

18,07 

0355 

DD,7E,00 

0358 

AD 

0359 

CO 

0360 

DD, 23 

0362 

IB 

0363 

OS 

0364 

06, B2 

0366 

2E, 01 

0368 

CD,89,01 

0371 

DO 

0372 

3E, CB 


LOAD WAIT 


LOAD LEADER 


SYNC 


LOAD LOOP 


LOAD FLAG 


LOAD VERIFY 


LOAD NEXT 
LOAD DEC 


LOAD MARKER 
LOAD S BITS 


JR NC, 250 (0273) LOAD BREAK 
L_D HL, 1045 

DJNZ, 254 (0282) LOAD WAIT 
DEC HL 
LD A, H 
OR L HL=0? 

JR NZ, 249 (0282) LOAD WAIT 

CALL 393 READ BIT 

JR NC, 235 (0273) LOAD BREAK 

LD B, 156 TIMING 

CALL 393 READ BIT 

JR NC, 228 (0273) LOAD BREAK 

LD A, 198 

CP B RIGHT SPACING? 

JR NC, 224 (0274) LOAD START 
INC H 

JR NZ, 241 (0294) LOAD LEADER 

LD B, 201 

CALL 397 READ EDGE 

JR NC, 244 (0273) LOAD BREAK 

LD A, B 

CP 212 SPACING? 

JR NC, 244 (0319) SYNC 

CALL 397 READ EDGE 

RET NC 

LD A, C 

XOR 3 

LD C, A 

LD H, 0 

LD B, 176 FLAG BYTE 
JR 31 (0366) LOAD MARKER 

EX AF, AF’ 

JR NZ, 7 (0345) LOAD FLAG 

JR NC, 15 (0355) LOAD VERIFY 

LD (IX+O), L 

JR 15 (0360) LOAD NEXT 

RL C 

XOR L 

RET NZ 

LD A, C 

RR A 

LD C, A 

INC DE 

JR 7 (0363) LOAD DEC 
LD A, (IX+O) 

XOR L 
RET NZ 
INC IX 
DEC DE 
EX AF, AF’ 

LD B, 178 TIMING 
LD L, 1 

CALL 393 READ BIT 
RET NC 

LD A, 203 SPACING 
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0374 

BS 


CP B 

0375 

CB, 15 


RL L 

0377 

06, BO 


LD B, 176 

0379 

D2,70,01 


JP NC, 368 LOAD 8 BITS 

0382 

7C 


LD A, H PARITY MATCHING 

0383 

AD 


XQR L ADD NEW BYTE 

0384 

67 


LD H, A RESAVE 

0385 

7 A 


LD A, D 

0386 

B3 


OR E DE =0? 

0387 

20, CA 


JR N2, 202 (0335) LOAD LOOP 

0389 

7C 


LD A, H 

0390 

FE, 01 


CP 1 

0392 

C9 


RET 

READ 

BIT AND READ EDGE SUBROUTINES 

0393 

CD,8D,01 

READ BIT 

CALL 397 READ EDGE 

0396 

DO 


RET NC 

0397 

3E, 16 

READ EDGE 

LD A, 22 

0399 

3D 

LOAD DELAY 

DEC A 

0400 

20, FD 


JR NZ, 253 (0399) LOAD DELAY 

0402 

A7 


AND A CLEAR FLAGS 

0403 

04 

LOAD SAMPLE 

INC B 

0404 

C8 


RET Z 

0405 

3E,7F 


LD A, 127 

0407 

DB , FE 


IN A, (254) 

0409 

IF 


RF; A 

0410 

DO 


RET NC 

041 1 

A9 


XOR C 

0412 

E6,20 


AND 32 SAVE BIT 5 

0414 

28, F3 


JR Z, 243 (0403) LOAD SAMPLE 

0416 

79 


LD A, C 

0417 

2F 


CF'L 

0418 

4F 


LD C, A 

0419 

E6,07 


AND 7 

0421 

F6,08 


OR 8 SET BIT 4 

0423 

D3 , FE 


OUT (254), A 

0425 

37 


SCF 

0426 

C9 


RET 

SAVE/LOAD/VEF:IFY/MERGE COMMAND 

ROUTINE 

0427 

3A,74,5C 

SLVM 

LD A, (23668) T ADDF: LOW 

0430 

OE,E1,19 


LD BC, 6625 

0433 

91 


SUB C (-225) 

0434 

32,74,50 


LD (23668), A T ADDR LOW 

0437 

DD, E5 


PUSH IX 00=SAVE, 01=L0AD 

0439 

D9 


EXX 02=VER IF Y, 03=MEF:l 

0440 

21,EF, IB 


LD HL, 7151 EXPECT EXPRESSION 

0443 

E5 


PUSH HL SET UP CALL BANK 

0444 

2E, 00 


LD L, O 

0446 

26, FF 


LD H, 255 

0448 

E5 


PUSH HL 

0449 

21,00,00 


LD HL, 0 

0452 

E5 


PUSH HL 

0453 

E5 


PUSH HL 

0454 

D9 


EXX 
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0455 

CD,99,OF 

0453 

DD, El 

0460 

FD,CB,01,7E 

0464 

28,66 

O 4 6 6 

01,11,00 

O 4 3 

3A,74,5C 

0472 

A 7 

0473 

28, 02 

0475 

OE, 22 

0477 

DD,E5 SAVE SPACE 

0479 

D9 

0480 

21,30,00 

0433 

E5 

0484 

2E, 00 

0486 

26, F F 

0488 

E5 

0489 

21,00,00 

0492 

E5 

0493 

E5 

0494 

D9 

0495 

CD,99,OF 

0498 

DD, El 

0500 

D5 

0501 

DD, El 

0503 

06, OB 

0505 

3E, 20 

0507 

12 SAVE BLANK 

O 5 O 8 

13 

0509 

10, FC 

051 1 

DD,36,01,FF 

0515 

DD, E5 

0517 

D9 

0518 

21,AF,2F 

0521 

E5 

0522 

2E, 00 

0524 

26, FF 

0526 

E5 

0527 

21,00,00 

0530 

E5 

0531 

E5 

0532 

D9 

0533 

CD,99,OF 

0536 

DD, El 

0538 

21,F6,FF 

054 1 

OB 

0542 

09 

0543 

03 

0544 

30, OF 

0546 

3A,74,5C 

0549 

A7 

0550 

20,02 

0552 

CF ERR F 

0553 

OE 

0554 

78 SAVE NULL NAME 

0555 

B1 


CALL 3993 CALL BANK 
POP IX 

BIT 7, (IY+1) NEED INTERPRET? 

JR Z, 102 (0568) SAVE TITLE 
LD BC, 17 

LD A, <23668) T ADDR LOW 

AND A CLEAR FLAGS 

JR Z, 2 (0477) SAVE SPACE 

LD C, 34 

PUSH IX 

EXX 

LD HL 48 INSERT BC SPACES 

PUSH HL 

LD L, 0 

LD H, 255 

PUSH HL 

L.D HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 
PUSH DE 
POP IX 

LD B, 11 CLEAR 11 SPACES 
LD A, 32 SPACE 
LD (DE), A 
INC DE 

DJNZ, 252 (0507) SAVE BLANK 
LD (IX+1), 255 NULL NAME 
PUSH IX 
EXX 

LD HL, 12207 POP STR 

PUSH HL 

LD L, 0 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 

LD HL, 65526 (-10) 

DEC BC 
AND HL, BC 
INC BC 

JR NC, 15 (0561) SAVE NAME 

LD A (23668) T ADDR LOW (FLAG) 

AND A CLEAR FLAGS 

JR NZ, 2 SAVE NULL NAME 

RST 8 ERROR 

F Invalid file name 

LD C, (HL) 

OR C 
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0556 28,0A 
0558 01,0A,00 

0561 DD,E5 SAVE NAME 

0563 El 

0564 23 

0565 EB 

0566 ED,BO 

0568 DD,E5 SAVE TITLE 

0570 D9 

0571 21,18,00 

0574 E5 

0575 2E,00 

0577 26,FF 

0579 E5' 

0580 21,00,00 
0583 E5 
0584 E5 
0585 D9 
0586 CD,99,OF 
0589 DD,El 

0591 FE,E4 SAVE DATA 

0593 C2,F2,02 
0596 3A,74,5C 
0599 FE,03 
0601 CA,D9,08 
0604 DD,E5 
0606 D9 
0607 21,20,00 
0610 E5 
0611 2E,00 
0613 26,FF 
0615 E5 
0616 21,00,00 
0619 E5' 

0620 E5 
0621 D9 
0622 CD,99,OF 
0625 D9 
0626 21,70,2C 
0629 E5 
0630 2E,00 
0632 26,FF 
0634 E5 
0635 21,00,00 
0638 E5 
0639 E5 
0640 D9 
0641 CD,99,OF 
0644 DD,E1 
0646 CB,F9 
0648 30,OB 
0650 21,00,00 
0653 3A,74,5C 
0656 3D 
0657 28,16 


JR Z, 10 (0568) SAVE TITLE 
LD BC, 10 
PUSH IX 

POP HL HL = IX 

INC HL 

EX DE, HL 

LDIR 

PUSH IX 

EXX 

L-D HL, 24 GET CHAR 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 

CP 223 DATA? 

JP NZ, (0754) SAVE SCREEN* 

LD A, (23668) T ADDR LOW FLAG) 
CP 3 MERGE CANT NAME DATA 
JP Z, 2265 EXIT ERROR 
PUSH IX 
EXX 

L-D HL, 32 NEXT CHAR 

PUSH HL 

LD L, 0 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
EXX 

LD HL, 11376 FIND VARIABLE 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, O 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 
SET 7, C 

JR NC, 11 (0664) SAVE VAR OLD 

LD HL, O 

LD A, (23668) T ADDR LOW (FLAG) 
DEC A 

JR Z, 22 (0681) SAVE VAR NEW 
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0659 

CF 

ERR 2 

0660 

01 


0661 

C2,D9,08 

EXIT ERROR 

0664 

FB,CB,01, 

7E SAVE VAR OLD 

0668 

28, 18 


0670 

n-r 


0671 

7E 


0672 

DD,77,OB 


0675 



0676 

7E 


0677 

DD,77 , OC 


0680 

~r 


0681 

DD,77,OE 

SAVE VAR NEW 

0684 

3E, 01 


0686 

CB , 71 


O 6 8 8 

28,01 


0690 

3C 


0691 

DD,77,00 

SAVE VAR TYPE 

0694 

EB 

SAVE DATA-1 

0695 

DD, E5 


0697 

D9 


0698 

21,20,00 


0701 

E 5 


0702 

2E, 00 


0704 

26, FF 


0706 

E5 


0707 

21,00,00 


0710 

E5 


071 1 

E5 


0712 

D9 


0713 

CD,99,OF 


0716 

DD, E 1 


0718 

FE, 29 


0720 

20, C3 


0722 

DD,E5 


0724 

D9 


0725 

21,20,00 


0728 

E5 


0729 

2E, 00 


0731 

26, FF 


0733 

E5 


0734 

21,00,00 


0737 

E5 


0738 

E5 


0739 

D9 


0740 

CD,99,OF 


0743 

DD,El * 


0745 

FD,CB,01, 

7E 

0749 

C8 


0750 

EB 


0751 

C3,C9,04 


0754 

FE,AA* 

SAVE SCREENS 

0756 

20,38 


0753 

3A,74,5C 


0761 

FE,03 



RST S ERROR 
2 Variable not found 
JP NZ, 2265 EXIT ERROR 
BIT 7, (IY+1) INTERPRET? 

JR Z, 24 (0694) SAVE DATA-1 
INC HL 
LB A, (HL) 

LD (IX+U), A 
INC HL 
LD A, (HL) 

LD (IX+12), A 
INC HL 

LD (IX+14), A 
LD A, 1 
BIT 6, C 

JR Z, 1 (0691) SAVE VAR TYPE 

INC A 

LD (IX+0), A 
EX DE, HL 
PUSH IX 
EXX 

LD HL, 32 NEXT CHAR 

PUSH HL 

LD L, 0 

L.D H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 
CP 41 )? 

JR NZ, 195 (0664) EXIT ERROR 

PUSH IX 

EXX 

LD HL, 32 NEXT CHAR- 

PUSH HL 

LD L, 0 

L.D H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 

BIT 7, (IY+1) INTERPRET? 

RET Z 

EX DE, HL 

JP 1225 SAVE ALL 

CP 170 SCREENS 

JR NZ, 56 (0814) SAVE CODE 

LD A, (23668) T ADDR LOW (FLAG) 

CP 3 NO MERGE CALLED DATA 
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0763 

CA,D9,08 

0766 

DD, E5 

0768 

D9 

0769 

21,20,00 

0772 

E5 

077.3 

2E, 00 

0775 

26, FF 

0777 

E5 

0778 

21,00,00 

0781 

E5 

0782 

E5 

0783 

D9 

0784 

CD,99,OF 

0787 

DD, E.l 

0789 

FD,CB,01 

0793 

CS 

0794 

DD,36,OB 

0798 

DD,36,OC 

0802 

21,00,40 

0805 

DD,75,OD 

0808 

DD,7E,OE 

0811 

C3,40,04 

0814 

FE,AF' 

0816 

C2,47,04 

0819 

3A,74,56 

0822 

FE, 03 

0824 

CA,D9,08 

0827 

DD, E5 

0829 

D9 

0830 

21,20,00 

0833 

E5 

0834 

2E , 00 

0836 

26, FF 

0838 

E5 

0839 

21,00,00 

0842 

E5 

0843 

E5 

0844 

D9 

0845 

CD,99,OF 

0848 

D9 

0849 

21,E7,21 

0852 

E5 

0853 

2E, 00 

0855 

26, FF 

0857 

E5 

0858 

21,00,00 

0861 

E5 

0862 

E5 

0863 

D9 

0864 

CD,99,OF 

0867 

DD, El 

0869 

20,20 

0871 

3A,74,5C 

0874 

A7 

0875 

CA,D9,08 


JP Z, 2265 EXIT ERROR 

PUSH IX 

EXX 

LD HL, 32 NEXT CHAR 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 

BIT 7, (IY+1) INTERPRET? 

RET Z 

LD (IX+ll), 0 
LD (IX+12), 27 

LD HL, 16384 DISPLAY FILE ADDR 
LD (I X +13) , L LOAD ADDR 
LD (IX+14), H 
JP 10SS SAVE TYPE 3 
SAVE CODE CP 175 CODE? 

JP NZ 1095 SAVE LINE? 

LD A, <23663) T ADDR LOW (FLAG) 
CP 3 

JP Z, 2265 EXIT ERROR 

PUSH IX 

EXX 

LD HL, 32 NEXT CHAR 

PUSH HL 

LD L, 0 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
EXX 

LD HL, 8679 TERM? 

PUSH HL 
LD L, O 
LD H, 255 
PUSH HL 
LD HL, 0 
PUSH HL 
PUSH HL 
EXX 

CALL 3993 CALL BANK 
POP IX 

JR NZ, 32 (0903) SAVE CODE-1 
LD A, (23668) T ADDR LOW (FLAG) 
AND A A =0? 

JP Z, 2265 EXIT ERROR 
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0878 

DD,E5 

0880 

D9 

088 1 

21,51,1C 

0884 

E5 

0885 

2E, 00 

0887 

26, FF 

0889 

E5 

0890 

21,00,00 

0893 

E5 

0894 

E5 

0395 

D9 

0896 

CD,99,OF 

0899 

DD, El 

0901 

1 O TCr 

J. I-’ , *_! 

0903 

DD, E5 

0905 

D9 

0906 

21,E5,IB 

0909 

E5 

0910 

2E , 00 

0912 

26, FF 

0914 

E5 

0915 

21,00,00 

0918 

E5 

0919 

jjrcr 

0920 

0921 

0924 

D9 

CD,99,OF 

0925 

21,18,00 

0928 

E5 

0929 

2E, 00 

0931 

26, FF 

0933 

E5 

0934 

21,00,00 

0937 

E5 

0938 

E5 

0939 

D9 

0940 

CD,99,OF 

0943 

DD, El 

0945 

FE,2C 

0947 

28, 20 

0949 

3A,74,5C 

0952 

A 7 

0953 

CA,D9,08 

0956 

DD, E5 

0958 

D9 


0959 21,51,1C 
0962 E5 
0963 3E,00 
0965 26,FF 
0967 E5 
0968 21,00,00 
0971 E5 
0972 E5 
0973 D9 
0974 CD,99,OF 


SAVE CODE-1 


SAVE CODE-2 


PUSH IX 
EXX 

LD HL, 7249 STK O 

PUSH HL 

LD L, O 

LD H, 255 

PUSH'HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 

JR 53 (0956) SAVE CODE-2 

PUSH IX 

EXX 

LD HL, 7141 TEN 6(EXPECT 1 #) 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
EXX 

LD HL, '24 GET CHAR 
PUSH HL 
LD L, O • 

LD H, 255 
PUSH HL 
LD HL, 0 
PUSH HL 
PUSH HL 
EXX 

CALL 3993 CALL BANK 
POP IX 
CP 44 ", 

JR Z, 32 (0981) GET # • 

LD A, (23668) T ADDR LOW (FLAG) 
AND A A =0? 

JP Z, 2265 EXIT ERROR- 

PUSH IX 

EXX 

LD HL, 7249 STK O 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, O 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
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0977 DD,El 
0979 IS, 2A 

0981 DD,E5 GET # 

0983 D9 

0984 21,20,00 

0987 E5 

0988 2E,00 

0990 26 , FF 

0992 E5 

0993 21,00,00 

0996 E5 

0997 E5 

0998 D9 

0999 CD,99,OF 

1002 D9 

1003 21,E5,1B 

1006 E5 

1007 2E,00 
1009 26,FF 

1011 E5 

1012 21 , 00,00 

1015 E5 

1016 E5 

1017 D9 

1018 CD,99,OF 
1021 DD,El 

1023 FD,CB,01,7E SAVE CQDE-4 

1027 C8 

1028 DD,E5 

1030 D9 

1031 21,23,IF 

1034 E5 

1035 2E,00 
1037 26,FF 

1039 E5 

1040 21,00,00 

1043 E5 

1044 E5 

1045 D9 

1046 CD,99,OF 
1049 DD,El 
1051 DD,71,OB 
1054 DD,70,OC 
1057 DD,E9 

1059 D9 

1060 21,23,IF 

1063 E5 

1064 2E,00 
1066 26,FF 

1068 E5 

1069 2 1,00,00 

1072 E5 

1073 E5 

1074 D9 

1075 CD,99,OF 


POP IX 

JR 42 (1023) SAVE CODE-4 

PUSH IX 

EXX 

LD HL, 32 NEXT CHAR 

PUSH HL 

L_D L, O 

LD H, 255 

PUSH HL 

LD HL, O 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
EXX 

LD HL, 7141 TEM 6(EXPECT 1#) 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, O 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 

BIT 7, (IX+1) INTERPRET? 

RET Z • 

PUSH IX 
EXX 

LD HL, 7971 FIX U (FIND INT) 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD H, O 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 

LD (IX+11), C LENGTH 
LD (IX+12), B 
PUSH IX 
EXX 

LD HL, 7971 FIX U (FIND INT) 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
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1078 

DD, El 

1080 

DD,71,OD 

1033 

DD,70,OE 

1086 

60 

1087 

69 

1088 

DD,36,00,03 

1092 

C3,C9,04 

1095 

FE, CA 

1097 

28, OB 

1099 

FD,CB,01,7E 

1103 

CS 

1104 

DD,36,OE,80 

1 108 

IS, 53 

1110 

3A,74,5C 

1 113 

A 7 

1114 

C2,D9,08 

1 117 

DD, E5 

1 119 

D9 

1 120 

21,20,00 

1 123 

E5 

1124 

2E , 00 

1126 

26, FF 

1128 

E5 

1 129 

21,00,00 

1 132 

E5 

1133 

E5 

1134 

D9 

1 135 

CD,99,OA 

1138 

D9 

1139 

21,E5,IB 

1142 

E5 

1143 

2E, 00 

1145 

26, FF 

1147 

E5 

1148 

21,00,00 

1151 

ES’ 

1152 

E5 

1153 

D9 

1 154 

CD,99,OF 

1 157 

DD, El 

1 159 

FD,CB,01,7E 

1163 

C8 

1164 

DD, E5 

1166 

D9 

1 167 

21,23,IF 

1170 

E5 

1171 

2E, 00 

1173 

26, FF 

1175 

E5 

1176 

21,00,00 

1179 

E5 

1180 

E5 

1181 

D9 

1182 

CD,99,OF 

1 185 

DD, El 


POP IX 

LD (l'X + 13), C STARTING ADDR 
LD (IX+14), D 
LD H, B 
LD L, C 

SAVE TYPE 3 LD (IX+O), 3 (SCREEN* & CODE) 

JP 1225 SAVE ALL 
SAVE LINE? CP 202 LINE? 

JR Z, 11 (1110) SAVE LINE 1 

BIT 7, (IY+1) INTERPRET? 

RET Z 

LD (IX+14), 128 END MARKER 

JR 83 (1193) SAVE TYPE O 
SAVE LINE 1 LD A, (23668) T ADDR LOW (FLAG) 
AND A A=0? 

JP NZ, 2265 EXIT ERROR 

PUSH IX 

EXX 

LD HL, 32 NEXT CHAR 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
EXX 

LD HL, 7141 TEN 6 (EXPECT 1 #) 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, O 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 

BIT 7, (IY+1) INTERPRET? ' 

RET Z 
PUSH IX 
EXX 

LD HL, 7971 FIX U (FIND INT) 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, O 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 
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1187 

DD,71,0D 

LD (IX+12), C LENGTH 

1 190 

DD,70,OE 

LD (IX +13) , B 

1193 

DD,36,00,00 SAVE TYPE 0 

LD (I X h-0 ) , 0 

1 197 

2A,59,5C 

LD HL, (23641) E LINE 

1 200 

ED,5B,53,5C 

LD DE, (23635) PROG 

1204 

37 

SCF 

1205 

ED, 52 

SBC HL, DE HL= TOTAL BYTES 

1207 

DD,75,OB 

LD (IX+11), L TOTAL BYTES 

1210 

DD,74,OC 

LD (IX+12), H 

1213 

2A,4B,5C 

LD HL, (23627) VARS 

1216 

ED, 52 

SBC HL, DE HL= PROG LEN 

1218 

DD,75,OF 

LD (IX+15), L PROG LEN 

1221 

DD,74,10 

LD (IX +16), H 

1224 

EB 

EX DE, HL 

1225 

3A,74,5C SAVE ALL 

LD A, (23668) T ADDR LOW (FLAG 


A7 

AND A A=07 

j 2^9 

CA,51,08 

JP Z, 2129 SAVE CONTROL 


E5 

PUSH HL 

1233 

01,11,00 

LD BC, 17 TITLE LENGTH 

1236 

DD, 09 

ADD IX, BC 

1238 

DD,E5 LOAD HEADER 

PUSH IX 

1240 

11,11,00 

LD DE, 17 HEADER LEN 

1243 

AF 

AND A CLEAR FLAGS 

1244 

37 

SCF 

1245 

CD,FC,00 

CALL 252 READ TAPE 

1248 

DD,E1' 

POP IX 

1250 

30, F2 

JR NC, 242 (1238) LOAD HEADER 

1252 

3E, F2 

LD A, 254 

1254 

DD, E5 

PUSH IX 

1256 

D9 

EXX 

1257 

21,30,12 

LD HL, 4656 SELECT CHAN 

1260 

E5 

PUSH HL 

1261 

2E, 00 

L_D l_, 0 

1263 

26, FF 

LD H, 255 

1265 

E5 

PUSH HL 

1266 

21,00,00 

LD HL, 0 

1269 

E5 

PUSH HL 

1270 

E5 

PUSH HL 

1271 

D9 

EXX 

1272 

CD,99,OF 

CALL 3993 CALL BANK 

1275 

DD, E1 

POP IX 

1277 

FD,36,52,03 

LD (IY+82), 3 SCROLL COUNT 

1281 

OE, 80 

LD C, 128 SIGNAL NO MATCH 

1283 

DD,7E,00 

LD A, (IX+O) NEW SAVE TYPE 

1286 

DD,BE,EF 

CP (IX+239) OLD SAVE TYPE 

1289 

20,02 

JR NZ, 2 (1293) LOAD TAPE 

1291 

OE, F6 

LD C, 246 SIGNAL MATCH 

1293 

FE,04 LOAD TYPE 

CP 4 NO FLAG >4 

1295 

30, C5 

JR NC, 197 (1238) LAOD HEADER 

1297 

11,AS,3C 

LD DE, 15528 TAPE MESSAGE ADDR 

1300 

C5 

PUSH BC 

1301 

DD, E5 

PUSH IX 

1303 

D9 

EXX 

1304 

21,37,OF 

LD HL, 1855 PUT MESSAGE(PROG: e 

1307 

Ei 5 

PUSH HL 
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1308 2E,00 
1310 26, FF r 

1312 E5 

1313 21,00,00 

1316 E5 

1317 E5 

1318 D9 

1319 CD,99,OF 
1322 DD,El 

1324 Cl 

1325 DD,E5 

1327 D1 

1328 21,FO,FF 
1331 19 

1 2 06 , O A 

1334 7E 

1335 3C 

1336 20,03 

1338 79’ 

1339 80 

1340 4F 

1341 13 LOAD NAME 

1342 1A 

1343 BE 

1344 23 

1345 20,01 

1347 OC 

1348 DD,E5 LD CHAR PR 

1350 D9 


1351 

21,10,00 

1354 

E5 

1355 

2E, 00 

1357 

26, FF 

1359 

E5 

1360 

21,00,00 

1363 

E5 

1364 

E5 

1365 

D9 

1366 

CD,99,OF 

1369 

DD, E1 

1371 

10, EO 

1373 

CB, 79 

1375 

C2,D6,04 

1378 

3E, OD 

1380 

DD, E5 

1382 

D9 

1383 

21,10,00 

1.386 

E5 

1387 

2E, 00 

1389 

26, FF 

1391 

E5 

1392 

21,00,00 

1395 

E5 

1396 

E5 

1397 

D9 


LD L, O 
LD H, 255 
PUSH HL 
LD HL, O 
PUSH HL 
PUSH HL 
EXX 

CALL 3993 CALL BANK' 

POP IX 
POP BC 
PUSH IX 
POP DE 

LD HL, 65520 (-17)ADDR OLD NAME 
ADD HL, DE 

LD B, 10 NAME IS 10 LONG 
LD A, (HL) 

INC A A WAS 255? 

OR NZ, 3 (1341) LOAD NAME 
LD A, C 
ADD A, B 
LD C, A 

INC DE COMPARE NAMES 

LD A, (DE) 

CP (HL) 

INC HL 

OR NZ* 1 (1348) LOAD CHAR PR 

INC C 
PUSH IX 
EXX 

LD HL, 16 PRINT CHAR 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 

DONZ, 224 (1341) LOAD NAME 
BIT 7, C MATCH? 

OP NZ, 1238 LOAD HEADER 
LD A, 13 ENTER 
PUSH IX 
EXX 

LD HL, 16 PRINT CHAR 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, O 

PUSH HL 

PUSH HL 

EXX 
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1398 

CD,99,OF 


1401 

DD, El 


1403 

El 


1404 

DD,7E,00 


1407 

FE, 03 


1409 

28, OC 


1411 

3A,74,5C 


1414 

3D 


1415 

CA,CC,05 


1418 

FE, 02 


1420 

CA,E5,06 


VERIFY CONTROL 

ROUTINE 

1423 

E5 

VERIFY CONTROL 

1424 

DD,6E,FA 


1427 

DD,66,FB 


1430 

DD,5E,OB 


1433 

DD,56,OC 


1436 

7C 


1437 

B5 


1438 

28, OD 


1440 

ED, 52 


1442 

38,26 


1444 

28, 07 


1446 

DD,7E,00 


1449 

FE, 03 


1451 

20, 1D 


1453 

El 

VERIFY CONT-1 

1454 

7C 


1455 

B5 


1456 

20, 06 


1458 

DD,6E,OD 


1461 

DD,66,OE 


1464 

E5 

DP LOAD 

1465 

DD, El 


1467 

•3A, 74,5C 


1470 

FE , 02 


1472 



1473 

20,01 


1475 

A7 


1476 

3E, FF 

SIGNAL VERIFY 

LOAD 

A DATA BLOCK SUBROUTINE 

1478 

CD,FC,00 

LOAD BLOCK 

1481 

D8 


1482 

CF 

ERR R 

1483 

1A 


LOAD 

CONTROL ROUTINE 

1478 

DD,5E,OB 

LOAD 

1487 

DD,56,OC 


1490 

E5 


1491 

7C 


1492 

B5 


1493 

20,06 



CALL 3 

993 CALL BANK 

POP IX 


POP HL 


LD A, 

(IX+O) 

CP 3 


JR Z, 

12 (1423) VERIFY CONTROL 

LD A, 

(23668) T ADDR LOW (FLAG 

DEC A 


JP Z, 
rp r? 

1484 LOAD (A WAS 1) 

W 1 J»_ 

JP Z, 

1765 MERGE (A WAS 3) 


PUSH HL 

LD L, (IX+250) 

LD H, (IX+251) 

LD E, (IX+11) 

LD D, (IX +12) 

LD A, H 

OR L HL=0? NO LEN SPECIFIED 
JR Z, 13 (1453) VERIFY CONT-1 
SBC HL, DE 

JR C, 0*3 (14S2) ERR R 
JR Z, 7 (1453) VERIFY COMT-1 
LD A, (IX+O) CODE 
CP 3 

JR NZ, 29 ERR R 
POP HL ' 

LD A, H 

OR L HL=0? 

JR NZ, 6 (1464) DO LOAD 

LD L, (IX+13) USE NEW START ADDR 

LD H, (IX+14) 

PUSH HL 

POP IX HL TO IX 

LD A, (2366S) T ADDR LOW (FLAG> 

CP 2 

SCF 

JR NZ, 1 (1476) SIGNAL VERIFY 

AND A CLEAR FLAGS 
LD A, 255 


CALL 252 READ TAPE 
RET C 

RST S ERROR 
R Tape loading error 


LD E, (IX+11) TOTAL LENGTH 
LD D, (IX+12) 

PUSH HL 
LD A, H 
OR L HL=0? 

JR NZ, 6 (1501) LOAD CONT-1 
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1495-13 

1496 13 

1497 13 

1498 EB 


1499 18,OC 
1501 DD,6E,FA 
1504 DD,66,FB 

1507 EB 

1508 37 

1509 ED,52 
1511 38, 1D 
1513 11,05,00 

1516 19 

1517 44 

1518 4D 

1519 DD,E5 

1521 D9 

1522 21,BB,IF 

1525 E5 

1526 2E,00 
1528 26,FF 

1530 E5 

1531 21,00,00 

1534 E5 

1535 E5 

1536 D9 

1537 CD,99,OF 
1540 DD,E1 

1542 El' 

1543 DD,7E,00 

1546 A7 

1547 28,66 

1549 7C 

1550 B5 

1551 28,27 

1553 2B 

1554 46 

1555 2B 

1556 4E 

1557 2B 

1558 03 


LOAD CONT-1 


LOAD CQNT-2 


LOAD DATA 


1559 03 

1560 03 

1561 DD,22,5F,5C 
1565 DD,E5 

1567 D9 

1568 21,50,17 

1571 E5 

1572 2E,00 
1574 26,FF 

1576 E5 

1577 21,00,00 

1580 E5 

1581 E5 

1582 D9 


INC DE 
INC DE 
INC DE 
EX DE, HL 

JR 12 (1513) LOAD CONT-2 
LD L, (IX+250) SIZE OF ARRAY 
LD H, (IX+251) 

EX DE, HL 
SCF 

SBC HL, DE 

JR C, 29 (1542) LOAD DATA 

LD DE, 5 

ADD HL, DE 

LD B, H 

LD C, L 

PUSH IX 


EXX 

LD HL, 8123 CHECK SIZE 

PUSH HL 

LD L, 0 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX • 


POP HL 

LD A, (IX.+0) CODE 

AND A CLEAR FLAGS 

JR Z, 102 (1651) LOAD PROGRAM 

LD A, H 

OR L HL=0? 

JR Z, 39 (1592) NEW ARRAY 
DEC HL 

LD B, (HL) GET LENGTH 
DEC HL 
LD C, (HL) 

DEC HL 

INC BC . i 

INC BC 
INC BC 


LD (23647), 
PUSH IX 
EXX 

LD HL, 5968 
PUSH HL 
LD L, O 
LD H, 255 
PUSH HL 
LD HL, O 
PUSH HL 
PUSH HL 
EXX 


IX X POINTER 


DEL REC (KILL OLD 
ARRAY) 
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1583 CD,89,OF 

1586 DD,E1 

1588 DD,2A,5F,5C 

1592 2A,59,5C NEW ARRAY 


1595 

2B 



1596 

DD, 

4E, 

OB 

1599 

DD, 

46, 

OC 

1602 

C5 



1 603 

03 



1 604 

03 



1605 

03 



1 606 

DD, 

7E, 

FD 

1609 

F5 



1610 

DD, 

E5 


1612 

D9 



1613 

21, 

BB, 

1 2 


1616 E5 

1617 2E,00 
1619 26,FF 

1621 E5 

1622 21,00,00 

1625 E5 

1626 E5 

1627 D9 

1628 CD,99,OF 
1631 DD,El 

1633 23 

1634 FI 

1635 77 

1636 D1 

1637 23 

1638 73 

1639 23 

1640 72 

1641 23 

1642 E5 

1643 DD,El 

1645 37 

1646 3E,FF 
1648 C3,C6,05 

1651 EB LOAD PROGRAM 

1652 2A,59,SC 

1655 2B 

1656 DD,22,5F,5C 
1660 DD,4E,OB 
1663 DD,46,OC 

1666 C5 

1667 DD,E5 

1669 D9 

1670 21,4D,17 

1673 E5 

1674 2E,00 
1676 26,FF 

1678 E5 

1679 21,00,00 


CALL 3993 CALL BANK 
POP IX DISCARD 
LD IX, (23647) X POINTER 
LD HL, (23641) E LINE 
DEC HL 

LD C, (IX+11) NEW ARRAY LENGTH 
LD B, (IX+12) 

PUSH BC 
INC BC 
INC BC 
INC BC 

LD A, (IX+253) NAME 
PUSH AF 
PUSH IX 
EXX 

LD HL, 4795 INSERT BC SPACES 

PUSH HL 

LD L, 0 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 
INC HL 
POP AF ' 

LD (HL), A NAME OF ARRAY 
POP DE 
INC HL 

LD (HL), E LENGTH 

INC HL 

LD (HL), D 

INC HL 

PUSH HL 

POP IX HL TO IX 
SCF 

LD A, 255 CODE FOR ARRAY 
JP 1478 LOAD BLOCK . i 

EX DE, HL 

LD HL, (23641) E LINE 
DEC HL 

L-D (23447), IX X POINTER 
LD C, (IX+11) LENGTH 
LD B, (IX+12) 

PUSH BC 
PUSH IX 
EXX 

LD HL, 5965 DEL REC(RECLAIM-1) 
PUSH HL (KILL OLD PROGRAM) 

LD L, O 
LD H, 255 
PUSH HL 
LD HL, O 
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1 COD 
J. V J jL. 

E5 

1683 

E5 

O 

CO 

4* 

D9 

1685 

CD,99,OF 

1688 

DD, El 

1690 

Cl 

1 691 

E5 

1692 

C5 

1 693 

DD, E5 

1 695 

D9 

1 696 

21, BE:, 12 

1A99 

E5 

1700 

2E, 00 

1702 

26, FF 

1704 

E5 

1705 

21 , 00,00 

1708 

E5 

1709 

E5 

1710 

D9 

171 1 

CD,99,OF 

1714 

DD, E1 

1716 

DD,2A,5F,5C 

1720 

•~>T 

1721 

DD,4E,OF 

1724 

DD,46,10 

1727 

09 

1728 

22,4B,5C 

1731 

DD,66,OE 

1734 

7C 

1735 

E6, CO 


1737 20,OA 
1739 DD,6E,OD 
1742 22,42,5C 
1745 FD, 36,OA,00 

1749 D1 NO LINE # 

1750 DD,E1 

1752 37 

1753 3E,FF 
1755 2A,53,5C 

1758 2B 

1759 22,57,50 

1762 03,06,05 

MERGE CONTROL ROUTINE 
1765 DD,4E,OB MERGE 

1763 DD,46,00 

1771 05 

1772 03 

1773 DD,E5 

1775 D9 

1776 21,30,00 

1779 E5' 

1780 2E,00 
1782 26,FF 
1784 E5 


PUSH LH 
PUSH HL 
EXX 

CALL 3993 CALL BANK 

POP IX 

POP BC 

PUSH HL 

PUSH BC 

PUSH IX 

EXX 

LD HL, 4795 INSERT BC SPACES 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, O 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 

LD IX, (23647) X POINTER 
INC HL 

LD C, (IX+15) VARS LENGTH 
L-D B, (IX + 16) 

ADD HL, BC 
LD (23627), HL VARS 
LD H, "(IX + 14) LINE # 

LD A, H 
AND 192 ’ 

JR NZ, 10 (1749) NO LINE # 

LD L, (IX+13) REST OF LINE # 

LD (23618), HL NEW PPC 

LD (IY+10), 0 SET NS PPC=0 

POP DE 

POP IX 

SCF 

LD A, 255 DATA BLOCK ONLY CQLDE 
LD HL, (23635) PROGRAM 
DEC HL 

LD (23639), HL DATA ADDR 
JP 1478 LOAD BLOCK 


LD C, (IX+11) BLOCK LENGTH 
LD B, (IX+12) 

PUSH BC 
INC BC 
PUSH IX 
EXX 

LD HL, 48 INSERT LINE 
PUSH HL 
LD L, O 
LD H, 255 
PUSH HL 
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1785 

21 „00,00 

1788 

E5 

1789 

E5 

1790 

D9 

1791 

CD,99,OF 

1794 

DD ’ E 1 

1796 

36,80 

1798 

EB 

1799 

D1 

1 800 

E5 

1801 

E5 

1802 

DD, E1 

1804 

37 

1805 

3E, FF 


1807 

CD,C6,05 



1810 

El 



1811 

ED,5B,53,5C 



1815 

7E MERGE 

NEW 

LOOP 

1816 

E6, CO 



1818 

20, 2D 



1820 

1A MERGE 

OLD 

LOOP 

1821 

13 



1822 

BE 



1 OOT 

OT 



X uj 

xl. *2* 



1824 

20,02 



1826 

1A 



J 007 

pcr 




J2» 



1828 

IB MERGE OLD 

LINE-1 

1829 

2B 



1830 

30, 1C 



1832 

E5 



1833 

EB 



1834 

DD, E5 



1836 

D9 



1837 

21,20,17 



1840 

E5 



1841 

2E , 00 



1843 

26, FF 



1845 

E5 



1846 

21,00,00 



1849 

E5 



1850 

E5 



1851 

D9 



1852 

CD,99,OF 



1855 

DD, El 



1857 

El 



1858 

18, D3 



1860 

CD,99,07 MERGE 

NEW 

LINE 

1863 

18,CE 



1865 

7E MERGE 

VAR 

LOOP 

1866 

4F 



1867 

FE, 80 



1869 

C3 



1870 

E5 



1S71 

2A,4B,5C 




LD HL, 0 
PUSH HL 
PUSH HL 
EXX 

CALL 3993 CALL BANK 
POP IX 

LD (HL), 128 MARKER 

EX DE, HL 

POP DE 

PUSH HL 

PUSH HL 

POP IX HL TO l'X 
SCF 

LD A, 255 CODE FOR MERGE 
CALL 1478 READ TAPE 
POP HL 

LD DE, (23635) E PPC 
LD A, (HL) 

AND 192 LEGAL LINE #? 

JR NZ, 45 (1865) MERGE VAR LOOP 
LD A, (DE) 

INC DE 
CP (HL) 

INC HL 

JR NZ, 2 (1828) MERGE OLD LINE-1 
LD A, (DE) 

CP (HL) 

DEC DE ' 

DEC HL 

JR NC, 28 (1860) MERGE NEW LINE- 

PUSH HL 

EX DE, HL 

PUSH IX 

EXX 

LD HL, 5920 RECORD LENGTH 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, O 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 
POP HL 

JR 216 (1820) MERGE OLD LOOP 
CALL 1945 MERGE ENTER 
JR 206 (1815) MERGE NEW LOOP 
LD A, (HL) 

LD C, A 
CP 128 END? 

RET Z 
PUSH HL 

LD HL, (23627) VARS 
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1874 

7E 

MERGE OLD VAR P 

1875 

FE, 80 



1 877 

28,39 



1879 

B9 



1 880 

OO 1 p 



1882 

C5 

MERGE OLD 

V-l 

1 883 

DD, E5 



1885 

09 



1 886 

21,20, 

17 


1 889 

E5 



1890 

2E, 00 



1 QQv 

26, FF 



1894 

E5 



1895 

21,00 , 

00 


1898 

E5 



1899 

E5 



1900 

09 



1901 

CD ? 99, 

OF 


1 904 

DO, El 



1906 

Cl 



1907 

EB 



190S 

18, DC 



1910 

E 6, E 0 

MERGE VAR OLD V 

1912 

FE, AO 



1914 

20, 12 



1916 

01 



1917 

05 



1918 

E5 



1919 

r~t 

MERGE OLD 

V-3 

1920 

13 



1921 

1A 



1922 

BE 



1923 

20,06 



1925 

17 



1926 

30, F7 



1928 

El 



1929 

18,03 



1931 

El 

MERGE OLD 

V-4 

1932 

18, CC 



1934 

3E,FF 

MERGE VAR 

L-l 

1936 

D1 

MERGE VAR 

L-2 

1937 

EB 



1938 

3C 



1939 

37 



1940 

CD,99, 

07 


1943 

18, BO 




LD A, (HL) 

CP 128 END MARKER? 

JR Z, 57 (1936) MERGE VAR L-2 
CP C 

JR Z, 28 (1910) MERGE VAR OLD V-2 
PUSH BC 
PUSH IX 
EXX 

LD HL, 5920 RECORD LENGTH 

PUSH HL 

l_D L, 0 

LD H, 255 

PUSH'HL 

LD HL, O 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 
POP BC 
EX DE, HL 

JR 220 (1874) MERGE OLD VAR P 
AND 224 SAVE BITS 7,6,5 2 

CP 160 LONG NAME VAR? 

JR NZ, 18 (1934) MERGE OLD VP 

POP DE 

PUSH DE 

PUSH HL 

INC HL 

INC DE 

LD A, (DE) COMPARE VAR NAMES 
CP (HL) 

JR NZ, 6 (1931) MERGE OLD V-4 
RL A 

JR NC, 247 (1919) MERGE OLD V-3 
POP HL 

JR 3 (1934) MERGE VAR L-l 
POP HL 

JR 204 (1882) MERGE OLD V-l 

LD A, 255 

POP DE 

EX DE, HL 

INC A 

SCF 

CALL 1945 MERGE ENTER 
JR 176 (1365) MERGE VAR LOOP 


MERGE A LINE OR VARIABLE SUBROUTINE 


1945 20,34 

1947 08 

1948 22,5F,5C 

1951 EB 

1952 DD,E5 
1954 D9 


MERGE ENTER 


JR NZ, 52 
EX AF, AF’ 
LD (23647) 
EXX 

PUSH IX 
EXX 


(1999) MERGE ENT-1 
, HL X POINTER 



LD HL, 5920 RECORD LENGTH 
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J. 958 

E5 

1959 

2E, 00 

1961 

26, FF 

1963 

E5 

1964 

21,00 

1967 

E5 

1968 

E5 

1969 

D9 

1970 

CD, 99 


1973 D9 

1974 21,50,17 

1977 E5 

1978 3E,00 
1980 26,FF 
1982 E5 

1984 21,00,00 

1987 E5 

1988 E5 

1989 CD,99,OF 
1992 DD,E1 

1994 EB 

1995 2A,5F,5C 

1998 08 

1999 08 MERGE ENT-1 

2000 D5 

2001 DD,E5 

2003 D9 

2004 21,20,17 

2007 E5 

2008 2E,00 
2010 26,FF 

2012 E5 

2013 21,00,00 

2016 E5 

2017 E5 

2018 D9 

2019 CD,99,OF 
2022 DD,El 
2024 22,5F,5C 
2027 2A,53,5C 

2030 E3 

2031 C5 


2032 

08 

2033 

38, 1B 

2035 

A-. : 

2036 

DD, E5 

2038 

D9 

2039 

21,BB,12 

2042 

E5 

2043 

2E, 00 

2045 

26, FF 

2047 

E5 

2048 

21,00,00 

2051 

E5 

2051 

E5 


PUSH HL 
LD L, O 
LD H, 255 
PUSH HL 
LD HL, O 
PUSH HL 
PUSH HL 
EXX 

CALL 3993 CALL BANK 
EXX 

LD HL, 5968 DEL•RECORD 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

CALL 3993 CALL BANK 
POP IX 
EX DE, HL 

LD HL, (23647) X POINTER 
EX AF, AF' 

EX AF, AF' 

PUSH DE 
PUSH IX 
EXX 

LD HL, '5920 RECORD LENGTH 
PUSH HL 
LD L, O • 

LD H, 255 
PUSH HL 
LD HL, O 
PUSH HL 
PUSH HL 
EXX 

CALL 3993 CALL BANK 
POP IX 

LD (23647), HL X POINTER 
LD HL, (23635) PROGRAM 
EX (SP), HL 
PUSH BC 
EX AF, AF' 

JR C, 27 (2062) MERGE ENT-2 
DEC HL 
PUSH IX 
EXX 

LD HL, 4795 INSERT BC SPACES 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, O 

PUSH HL 

PUSH HL 
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2053 

D9 


2054 

CD,99,OF 


2057 

DD,E1 


2059 

OT 


2060 

18,17 


2062 

DD, E5 

MERGE ENT-2 

2064 

D9 


2065 

21,BB,12 


2068 

E5 


2069 

2E, 00 


20*71 

26, FF 


2073 

E5 


2074 

2 1,00,00 


2077 

E5 


2078 

E5 


2079 

D9 


2080 

CD,99,OF 


2083 

DD, El 


2085 


MERGE ENT-3 

2086 

Cl 


2087 

D1 


2088 

ED,53,53, 

5C 

2092 

ED,5B,5F, 

5C 

2096 

C5 


2097 

D5 


2098 

EB 


2099 

ED, BO 


2101 

El 


2102 

Cl 


2103 

D5 


2104 

DD , E5 


2106 

D9 


2107 

21,50,17 


2110 

E5 


2111 

2E, 00 


2113 

26, FF 


2115 

E5 


2116 

21,00,00 


2119 

E5 


2120 

E5 


1 O 1 

D9 


o 1 
x xL 

CD,99,OF 


2125 

DD, El 


2127 

D1 


2128 

C9 


SAVE 

CONTROL ROUTINE 

2129 

E5 

SAVE 

2130 

3E, FD 


o i 

DD, E5 


2134 

D9 


2135 

21,30,12 


2138 

E5 


2139 

2E, 00 


2141 

26, FF 



EXX 

CALL 3993 CALL BANK 
POP IX 
INC HL 

■JR 23 (2085) MERGE ENT-3 

PUSH IX 

EXX 

LD HL, 4795 INSEF;T BC SPACES 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 

POP IX 

INC HL 

POP BC 

POP DE 

LD (23635), DE PROGRAM 

LD DE, (23647) X POINTER 

PUSH BC 

PUSH DE 

EX DE, HL 

LDIR 

POP HL • 

POP BC 
PUSH DE • 

PUSH IX 
EXX 

LD HL, 5968 DEL REC 

PUSH HL 

LD L, O 

LD H, 255 

PUSH HL 

LD HL, 0 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 
POP DE 
RET 


PUSH HL 

LD A, 253 (CHAN K) 

PUSH IX 
EXX 

LD HL, 4656 SELECT CHAN 
PUSH HL 
LD L, O 
LD H, 255 
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2143 

E5 

— * -- r 

2144 

21 , 00 , 00 


2147 

E5 


2148 

E5 


2149 

D9 


2150 

80,98,OF 


2153 

DD, El 


2155 

AF 


"0 1 «=! 

X _J OJ 

11 , 89 , 3C 

PRINT START TAPI 

2159 

DD, E5 



D9 


2162 

21,3F,07 


2165 

E5 


2166 

2E, 00 


2168 

26, FF 


2170 

E5 


2171 

21 , 00 , 00 


2174 

E5 


2175 

E5 


i -7 l. 

D8 


2177 

CD,99,OF 


2180 

DD, E1 


7' -} q 

FD,CB,02, 

EE 

2186 

CD,AA,08 


2189 

DD, E5 


2191 

11,11,00 


2194 

AF 


2195 

CD,68,00 


2198 

DD, El 


2200 

06, 32 


(■) 

76 

WAIT 1 SEC 

2203 

10, FD 


2205 

DD,5E,OB 


2208 

DD,56,OC 


2211 

3E, FF 


2213 

DD, El 


2215 

C3,68,00 


CALL 

WAIT FOR 

A KEY ROUTINE 

2218 

F5 

AKEY 

2219 

C5 


2220 

D5 


ODD j 

01,40,9C 


2224 

OB 

WAIT LOOP- 

icr 

X-X-xL -_J 

79 


2226 

BO 


'"i *~t -7 

xL xLxL / 

20, FB 


q q q q> 

AF 

TRY AGAIN 

2230 

DB , FE 


qq-7n 

E6, IF 


2234 

EE, IF 


x _ xL -_*• w 

28,F7 


2238 

DD, E5 


2240 

D9 


2241 

21,A9,08 



PUSH HL 
LD HL, O 
PUSH HL 
PUSH HL 
EXX 

CALL 3993 CALL BANK 
POP IX 

XOR A CLEAR A S< CARRY 
LD DE, 15497 
PUSH IX 
EXX 

LD HL, 1855 PUT MESSAGE 

PUSH HL 

LD L, 0 

LD I-!, 255 

PUSH HL 

LD HL, O 

PUSH HL 

PUSH HL 

EXX 

CALL 3993 CALL BANK 
POP IX 

SET 5, (IY+2) CLEAR LHS ON KEYHIT 

CALL 2218 AKEY 
PUSH IX 
LD DE, 17 

XOR ft CLEAR A & CARRY 
CALL 104 WRITE TAPE 
POP IX 

LD B, 50'(50/60 SEC BRITISH) 

HALT 

DJNZ, 253 (2203) WAIT 1 SEC 
LD E, (IX+U) LENGTH 
LD D, (IX+12) 

LD A, 255 DATA CODE 
POP IX 

JP 104 WRITE TAPE 


PUSH AF . i 

PUSH BC 

PUSH DE 

LD BC, 40000 

DEC BC 

LD A, C 

OR B BC = 0? 

JR NZ, 251 (2224) WAIT LOOP 

XOR A CLEAR A 
IN A, (254) 

AND 31 SAVE 5 LOW BITS 
CP 31 

JR Z, 247 (2229) TRY AGAIN 

PUSH IX 

EXX 

LD HL, 2217 CLS-LH 
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2244 

E5 


PUSH HL 

2245 

2 E , 00 


LD L, 0 

2247 

26, FF 


LD H, 255 

224 c ? 

E5 

* 

PUSH HL 

2250 

21 ,00,00 


LD ML, 0 

oncr*r 

E5 


PUSH HL 

2254 

E5 


PUSH HL 

o r> crj cr 

D9 


EXX 

.C. •.—1 U 

CD,99,OF 


CALL 3993 CALL BANK- 

O *“> c=; p 

DD, E1 


POP IX 

2261 

D1 


POP DE 

O D /_ O 

jL. jL. 

Cl 


POP BC 

2263 

FI 


POP AF 

2264 

C9 


RET 

EXIT 

WITH ERROR 

ROUTINE 


2265 

D9 

EXIT ERROR 

EXX 

2266 

21,ED,18 


LD HL, 7149 SYN ERR 

2269 

E5 


PUSH HL 

2270 

2 E, 00 


LD L, 0 

7779 

26, FF 


LD H, 255 

2274 

E5 


PUSH HL 


D9 


EXX 

2276 

CD,3A,OF 


CALL 3978 GOTO BANK 

EXTENSION INITIALIZATION ROUTINE 

2279 

21,EA,5E 

EX INIT 

LD HL, 24298 AT SYS CONF TABLE 

2282 

22,BC,5C 


LD (23740), HL SYS CONF ADDR 

2285 

CD,F4,09 


CALL 254S BUILD SYS CONF TABLE 

2288 

2A,BC,5C 


LD HL, (23740) SYS CONF TABLE 

2291 

11 ,OS,00 


LD DE, 8 

2294 

19 


ADD HL, DE 8TH POSN 

-u- jL. / w 

7E 


LD A, (HL) 

2296 

FE , 01 


CP 1 

2298 

20 , 13 


JR NZ, 19 (2319) GET OLD CONF 

2300 

E5 

CONF-1 

PUSH HL 

2301 

CD,6C,09 


CALL 2412 NEW INIT 

2304 

El 


POP HL 

2305 

- _ n -t 


INC HL 

2306 

5E 


LD E, (HL) GET ADDR 

2307 

O T 


INC HL 

2308 

56 


LD D, (HL) 

2309 

D5 


PUSH DE PUSH ON STACK 

2310 

06 ,00 


LD B, 0 GET BANK # 




INC HL 

2313 

4E 


LD C, (HL) 

2314 

C5 


PUSH BC PUSH ON STACK 

2315 

FB 


El 

2316 

CD,72,65 


CALL 25970 GOTO BANK 

2319 

2A,BC,5C 

GET OLD CONF 

LD HL, (23740) SYS CONF TABLE 

*~y *? 0 r> 

OT 


INC HL 

'OTO'T 

7E 


LD A, (HL) 

2-324 

FE, 02 


CP 2 

2326 

2 S, 06 


JR Z, 6 (2334) CONF—2 

2328 

CD,6C,09 


CALL 2412 NEW INIT 
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2331 

C3,9A,09 



JP 2458 FIND ADDR 

2334 

2 B 


CGNF-2 

DEC HL 

*~y t cr 

a :i .__i 

“7!~ 



LD A, (HL) 

27^/% 6 

FE, 01 



CP 1 CART PRESENT? 


i ~> o -to 



JR Z, 50 (2390) CART INIT 

2340 

FE, 02 



CP 2 

2342 

20,42 



JR NZ, 66 (2410) ERR R 

2344 

11,06,00 



LD DE, 6 GET CHAN JUMP LENGTH 

2347 

19 



ADD HL, DE 

2348 

4E 



LD C, (HL) 

O /T /J. p 




INC HL 

2350 

46 



LD B, (HL) 

2351 

21,40,68 



LD HL, 26688 CHAN TABLE 

2354 

09 



ADD HL, BC 

O T Cj c-. 

EB 



EX DE, HL 

2356 

21,40,68 



LD HL, 26688 CHAN TABLE 

2359 

ED, B0 



LDIR TRANSFER NEW TABLE 

2361 

CD,73,09 



CALL 2419 NEW INIT-2 

2364 

2A,BC,5C 



LD HL, (23740) SYN C0NF TABLE 

O *T *7 

11,05,00 



LD DE, 5 

2370 

19 



ADD HL, DE NEXT CHAN DATA 

2371 

7E 



LD A, (HL) 

£- / jL. 

F r E, 00 



CP 0 

2374 

28,52 



JR Z, 82 (2458) FIND ADDR 

2376 

2B 



DEC HL 

2377 

4E 



LD C, (HL) BANK # 

r> T “7 o 

j;_ •_< / *_* 

2B 



DEC HL 

2 ~r '7 Q 

56 



LD D, X HL) BANK ADDR 

2380 

2 B 



DEC HL 

2381 

5E 



LD E, (HL) 

0 r- t 

D5 



PUSH DE ADDR 

2383 

06,00 



LD B, 0 

r>~ro c “ 

C5 



PUSH'BC 

2386 

FB 



El 

2387 

CD,72,66 



CALL 25970 GOTO BANK 

2390 

CD,6C,09 

CART 

INIT 

CALL 2412 NEW INIT 

2393 

3E, 80 



LD A, 128 

2395 

32,C6,5C 



LD (23750), A BIT 7=1=CART IN 

2398 

21,C6,18 



LD HL, 6343 AR0S 

2401 

E5 



PUSH HL i 

2402 

06, FF 



LD B, 255 BANK # 

2404 

0 E, 00 



LD C, 0 

2406 

C5 



PUSH BC 

2407 

CD,72,65 



CALL 25790 GOTO BANK 

2410 

CF 


ERR R 

RST 8 ERROR 

2411 

IB 



F; Tape loading error 

2412 

21,40,68 

NEW 

INIT 

LD HL, 26688 CHAN TABLE 

2415 

11,15,00 



LD DE, 21 CHECK LENGTH 

2418 

19 



ADD HL, DE 

2419 

22,57,5C 

NEW 

INIT—2 

LD (23639), HL DATA ADDR =26709 


r ~j ~T 



INC HL 

2423 

nn cr-r crn 
* 1 . * tJO j| jU 



LD (23635), HL PROGRAM = 26710 

2426 

22,4B,5C 



LD (23627), HL VARS =26710 

2429 

36,80 



LD (HL), 128 MARKER 

2431 

07 



INC HL 
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r^- 


2432 

22,59,5C 


LD (23641), HL E LINE= 26711 

2435 

36, CD 


LD (HL), 13 ENTER AT E LINE 

2437 



INC HL 

243R 

£j , SO 


LD (HL), 12S MARKER AT WORK SPACE 

2440 

s~y ~r 


INC HL 

244 1 

22,61,58 


LD (23649) , HL WORK SF'ACE=26713 

2444 

22,63,58 


LD (23651), HL STK BOT = 26713 

2447 

r> *~y jl c"; cz- p 

uT- , *_• •„» , U Lr 


LD (23653), HL STK END = 26713 

2450 

AF 


XOR A CLEAR A 

2451 

32,86,58 


LD (23750), A CART FLAGS =0 

2454 

32,82,58 


LD (23746), A VID M0DE=0 

2457 

89 


RET 

FIND 

CHANNEL ADDRESS SUBROUTINE 

2458 

16, FF 

FIND CHAN ADDR 

LD D, 255 BANK # 

2460 

1E , 80 


LD E, 128 MARKER 

2462 

21,2F, DE¬ 


LD HL, 3631 LED 18(WAIT FOR INRPT 

2465 

ES 


PUSH HL RET ADDR 

2466 

D5 


PUSH DE 

2467 

2A,B8,58 


LD HL, (23740) SYS CONF TABLE 

2470 

11,08,00 


LD DE, 12 12 F'OSN 

2473 

19 


ADD HL, DE 

2474 

06 , 00 


LD B, 0 

2476 

7E 

LOOP-1 

LD A, (HL) 

2477 

FE, 80 


CP 128 END MARKER? 

2479 

P« p T p 


JR 2, 50 (2531) CART END 

2481 

FE, 00 


CP 0 BLANK? 

2433 

p o i ”> o 

O 


JR Z, 4‘9 (2525) JUMP END 

2485 

-n- 


INC HL 

2486 

46 


LD B, (HL-) 

2487 

11,14,00 


LD DE, 20 

2490 

19' 


ADD HL, DE CK 33RD (ROOM?) 

2491 

7E 


LD A, (HL) 

2492 

OF 


RRC A BIT 7 SET? 

2493 

38, 05 


JR C, 5 (2500) CHECK END 

2495 



INC HL 

2496 

n*r 


INC HL 

2497 

n t 


INC HL 

2498 

18, E8 


JR 232 (2476) LQOF'-l 

2500 


CK END 

INC HL AT 34TH F'OSN 

2501 

7E 


LD A, (HL) 

2502 

D1 


POP DE 

2503 

BB 


CP E 12B?=END? 

2504 

38,05 


JR C, 5 (2511) GO BACK 5 

2506 

D5 


PUSH DE 

2507 



INC HL 

2508 

OT 


INC HL 

2509 

IS, DD 


JR 221 (2476) LOOF'-l 

2511 

D1 

GO BACK 5 

POP DE 

2512 

11,05,00 


LD DE, 5 

2515 

ED,52’ 


SBC HL, DE 

2517 

E5 


PUSH HL 

2518 

4F 


LD C, A 

2519 

C5 


PUSH BC 

2520 

13 


DEC DE 
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2521 

13 

-nTron 

1? 

2523 

13,CF 

nc-nc- 

11,18,00 

o «-•=; o o 

X- v_> 

19* 

252? 

18, C9 

2531 

Cl 

2532 

78 

O cr -f “f 

FE, FF 

2535 

28,04 

2537 

OE, 59 

Ocr.TO 

4.’- W / 

18, 02 

2541 

OE , 00 

2543 

C5 

2545 

CD,72,65 

BUILD SYSTEM ! 

2548 

2A,BC,5C 

2551 

AF 

rr cr 
*~J al«M 

32,BE,5C 

2555 

32,15,63 

2558 

11,08,00 

2561 

19 

2562 

IE, FF 

2564 

16,00 

2566 

D5 

2567 

11,01,00 

2570 

D5 

2571 

E5 

2572 

11,04,00 

2575 

D5 

2576 

11,01,00 

2579 

D5 

2580 

CD,22,67 

2583 

7E 

2584 

FE, 01 

2586 

28,22 

2588 

36 , 00 

2580 

IE, FF 

2592 

16 , 00 

2594 

D5 

2595 

11,00,80 

2598 

D5 

2589 

2A,BC,5C 

2602 

E5 

2603 

11,08,00 

2606 

D5 

2607 

11,01,00 

2610 

D5 

2611 

CD,22,67 

2614 

OT 

2615 

7E 

2616 

FE, 02 

2618 

28 , 02 

2620 

36, 00 


DEC DE 
ADD HL, DE 
JR 207 (2476) L00P-1 
JUMP END LD DE, 24 

ADD HL, DE 
JR 201 (2476) L00P-1 

CART END POP BC 

LD A, B 
CP 255 

JR Z, 4 (2541) CALL EXT INIT 
LD C, 38 

JR 2 (2543) GOTO BANK 
CALL EXT INIT LD C, O 
GOTO BANK PUSH BC 

CALL 25970 GOTO BANK 

ONFIGURATION TABLE SUBROUTINE 

BUILD SYS CON TBL LD HL (23740) SYS CQNF TABLE 

XOR A CLEAR A 
LD (23742), A MAX BANK=0 
LD (25363), A BS MAX BANK=0 
LD DE, 8 

ADD HL, DE SETUP XFER BYTES 
L-D E, 255 BANK # 

LD D, O 
PUSH DE 
LD DE, 1 
PUSH DE 
PUSH HL 
LD DE, 4- 
PUSH DE 
LD DE, 1 
PUSH DE 

CALL 26402 XFER BYTES 
LD A, (HL) 

CP 1 CART? 

JR Z, 34 (2622) CHECK CONF 
LD (HL), 0 
LD E, 255 

LD D, O i 

PUSH DE 

LD DE 32768 START CHUNK 4 
PUSH DE 

LD HL, (23740) SYS CONF TABLE 

PUSH HL 

LD DE, 3 

PUSH DE 

LD DE, 1 

PUSH DE 

CALL 26402 XFER BYTES 
INC HL 
LD A, (HL) 

CP 2 

JR Z, 2 (2622) CHECK CONF 
LD (HL), 0 


ADR 
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2622 2A,BC,5C CHECK CONF 
2625 11,00,00 
2628 19 
2629 16,CO 
2631 IE,00 
2633 CD,5C,63 

2636 CD , D 1 ,OB CALL RES REG 
2639 D2,D4,0A 
2642 47 


2643 

CB , F8 

2645 

70 

2646 

CB, F8 

2648 


2649 

0E, FE 

•~~i / cr i 
-LL fc) _J 1 

C5 

r ~> /. r> 

O -U.J 

11,E7,OS 

4. O „J 

D5 

r> /- L 

X- *—> «__« 

11,00,00 

2659 

D5 

y... O 

11,01,00 

2663 

D5 

2664 

D5 

X— *6 CD •_ j 

CD,22,67 

“ o 

y~. i..j w 

IE, FF 

2670 

57 

267 1 

D5 

2672 

1 1,00,00 

2675 

D5 

2676 

E5 

2677 

11,16,00 

2680 

D5 

2681 

11,01,00 

2684 

D5 

2685 

y~ , v._‘ / 

2688 

56 

2689 

3A,E7,08 

2692 

BA 

2693 

C2,C2,0A 

2696 

OE, FE 

2698 

C5 

2699 

11,4C,0A 

2702 

D5 

2703 

11,00 , 00 

2706 

D5 

2707 

11,01,00 

2710 

D5 

2711 

D5 

2712 

CD,22,67 

2715 

IE, FF 

2717 

57 

2718 

D5 

2719 

11,00,00 

2722 

D5 

nynT 

E5 

2724 

11,16,00 


L-D HL, (23740) SYS CONF TABLE 
LD DE, 13 
ADD HL, DE 
LD D, 192 
LD E, 0 

CALL 25436 WRITE BS REG 

CALL 3025 RES BS REG 

JP NC, 2772 SET END MARKER 

LD B, A 

SET 7, B 

LD (HL), B 

RES 7, B 

INC HL 

LD C, 254 BANK # 

PUSH BC 

L.D DE, 2279 EXT I NIT 

PUSH DE 

LD DE, 0 

PUSH DE 

LD DE, 1 

PUSH DE 

PUSH DE 

CALL 26402 XFER BYTES 

LD E, 255 

LD D, A 

PUSH DE 

LD DE, 0 

PUSH DE 

PUSH HL 

LD DE, 22 

PUSH DE 

LD DE, 1 

PUSH DE 

CALL 26402 XFER BYTES 
LD D, (HL) 

LD A, (2279) 33? 

CP D 

JP NZ, 2754 BUILD TABLE END 
LD C, 254 
PUSH BC 

LD DE, 2636 CALL RES REG ' 

PUSH DE 

LD DE, O 

PUSH DE 

LD DE, 1 

PUSH DE 

PUSH DE 

CALL 26402 XFER BYTES 

LD E, 255 

LD B, A 

PUSH DE 

LD DE, O 

PUSH DE 

PUSH HL 

LD DE, 22 
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2727 D5 

2728 11,01,00 

2731 D5 

2732 CD,22,67 

2735 56 

2736 3A,E7,03 

2739 BA 

2740 C2,C2,0A 

2743 2B 

2744 2B 

2745 CD,DB,0A 
2748 11,15,00 

2751 19 

2752 18,08 

2754 7A BUILD TABLE END 

2755 E6,DF 

2757 77 

2758 2B 

2758 CD,IF,OC 

2762 16,CO CALL WR BS REG 
2764 IE,01 
2766 CD,5C,63 
2769 C3,4C,0A 

SET END MARKER SUBROUTINE 

2772 2B SET END MARKER 

2773 36,30 
2775 CD,FB,OC 
2778 C9 


PUSH DE 
LD DE, 1 
PUSH DE 

CALL 26402 XFER BYTES 
LD D, (HL) 

LD A, (2279) 33? 

CP D 

JP NZ 2754 BUILD TABLE END 
DEC HL 
DEC HL 

CALL 2779 INTERRUPTABLE RST 
LD DE, 21 
ADD HL, DE 

JR 8 (2762) CALL WR BS REG 

LD A, D 

AND 223 

LD (HL), A 

DEC HL 

CALL 3103 GET USR BANK 
LD D, 192 
LD E, 1 

CALL 25436 WRITE BS REG 
JP 2636 CALL RES REG 


DEC HL 

LD (HL), 128 

CALL 3323 CLEAR SYS CONF 
RET 


INTERRUPTABLE 

2779 

36,02 

2781 

C5 

2782 

11,38,00 

2735 

D5 

2786 

D5 

2737 

11,10,00 

2790 

D5 

2791 

11,01,00 

2794 

D5 

2795 

CD,22,67 

2793 

OT 

2799 

~r 

2800 

7E 

2301 

CB, C7 

2803 

77 

2804 

11,00,00 

2807 

3E, 01 

2809 

08 

2810 

E5 

2311 

EB 

2812 

11,00,20 

2315 

19 

2316 

EB 

2317 

El 


RESTART ROUTINE 
SET RST 56 


NEXT CHUNK 


LD (HL), 2 
PUSH BC 
LD DE, 56 
PUSH DE 
PUSH DE 
LD DE, 16 
PUSH DE 
LD DE, 1 
PUSH DE 

CALL 26402 XFER BYTES 
INC HL 
INC HL 
LD A, (HL) 

SET O, A 
LD (HL), A 
LD DE, O 
LD A, 1 
EX AF, AF ? 

PUSH HL 
EX DE, HL 

LD DE, 8192 CHUNK LENGTH 
ADD HL, DE 
EX DE, HL 
POP HL 
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2818 

06, 

FE 


LD B, 254 

2820 

3A, 

BE, 5C 


LD A, (23742) MAX BANK 

2323 

4F 



L.D C, A 

2824 

C5 



PUSH BC 

2825 

01 , 

E7,08 


LD BC, 2279 EX IN IT 

2828 

C5 



PUSH BC 

2829 

05 



PUSH DE 

2830 

0 1 , 

0 1 ,00 


LD BC, 1 

OOTT 

C5 



PUSH BC 

2834 

C5 



PUSH BC 

2933 

CD, 

"7- "0 /_ y 


CALL 26402 XFER BYTES 

2838 

3A, 

BE, 5C 


LD A, (23742) MAX BANK 

284 1 

47 



LD B, A 

2842 

OE , 

00 


LD C, 0 

2844 

C5 



PUSH BC 

2845 

D5 



PUSH DE 

2846 

r>"r 



INC HL 

2847 

EE 5 



PUSH HL 

2848 

01, 

0 1 , 00 


LD BC, 1 

j.*_ *-j vJ 1 

C5 



PUSH BC 

o o r> 

C5 



PUSH BC 

2853 

CD, 

22,67 


CALL 26402 XFER BYTES 

2856 

46 



LD B, (HL) 

00*=* “7 

v._> / 

2B 



DEC HL 

2858 

3A, 

E7,08 


LD A, (2279) 33? 

2861 

B8 



CP B 

2862 

20, 

65 


JR NZ, 101 (2965) RESET FLAGS 

2864 

06, 

FE 


LD B, 254 

2866 

3A , 

BE, 5C 


LD A, (23742) MAX BANK 

2868 

4F 



LD C, A • 

2870 

C5 



PUSH BC 

2871 

01, 

4C , OA 


LD BC, 2636 CALL RES REG 

2874 

C5 



PUSH BC 

2875 

D5 



PUSH DE 

2876 

01 , 

01 , 00 


LD BC, 1 

2879 

C5 



PUSH BC 

2880 

C5 



PUSH BC 

2881 

CD, 

22,67 


CALL 26402 XFER BYTES 

2884 

A , 

BE, 5C 


LD A, (23742) MAX BANK 

2887 

47 



LD B, A 

2888 

OE , 

00 


LD C, 0 

2890 

C5 



PUSH BC 

2891 

05 



PUSH DE 

o o o 
i.u7i 

23 



INC HL 

2893 

E5 



PUSH HL 

2894 

01 , 

01 , 00 


LD BC, 1 

2897 

C5 



PUSH BC 

2898 

C5 



PUSH BC 

2399 

CD, 

22,67 


CALL 26402 XFER BYTES 

2902 

46 



LD B, (HL) 

2903 

2B 



DEC HL 

2904 

3A , 

4C-, OA 


LD A, (2636) 205? 

2907 

B3 



CP B 

2908 

20, 

37 


JR NZ, 55 (2965) RESET FLAGS 

2910 

08 


SET FLAGS 

EX AF, AF ? 
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291 1 

46 


'7 O 1 O 

X_ -• .1 .il_ 

FE, 01 


2914 

20 , 04 


2916 

CB , C 8 


291S 

18 , 2 A 


2920 

FE , 02 

SET CP-2 

p q p p 

20 , 04 


p Q p /} 

CB, DO 


/-•■V r ~, , i - 

j:.. ‘7 

18 n 22 


■“*» n "~k i— ; 

7 x.~ O 

FE „ 03 

SET CP-3 

2930 

20, 04 


"7 Q *T “3 

CB, D 8 


2934 

18, 1A 


pg'-r^ 

F i~ , 0 4 

SET CP-4 

2938 

20 , 04 


2940 

CB , E 0 


'**•' Q ij. ''7 

18, 12 


2944 

FE, 05 

SET CP-5 

2946 

20 , 04 


2948 

CB,E 8 


2950 

18,0A 


OO 1 ^ "7 

FE, 06 

SET CP -6 

2954 

20,04 


2956 

CB , F 0 


2958 

18,02 


2960 

CB, F 8 

SET 7 

2 Q r> 

7 U 

LD FLAG 


18,35 


2965 

08 

RESET FLAGS 

2966 

46 


2967 

FE, 01 


2969 

20,04 


2971 

CB, 88 


2973 

18,2A 


'“.'OTur 

/ / V-J 

FE, 02 

RESET CP-2 

2977 

20 ,04 


2979 

CB, 90 


2981 

18,22 


2983 

FE, 03 

RESET CP-3 

29Q3 

20 , 04 


2987 

CB, 98 


2989 

18, 1A 


2991 

FE, 04 

RESET CP-4 

2993 

20,04 


2995 

CB, A0 


2997 

18,12 


2999 

FE, 05 

ppocrj r;p_cr 

3001 

20,04 


3003 

CB, AS 


3005 

18, OA 


3007 

FE, 06 

RESET CP -6 

3009 

20,04 


3011 

CB, BO 


3013 

18,02 


3015 

CB, B 8 

RESET 7 


LD B, 

(HL > 

CP 1 


JR N2 , 

4 (2920) SET CP-2 

SET 1, 

B 

JR 42 

(2962) LD FLAG 

CP 2 


JR NZ, 

4 (2928) SET CP-3 

SET 2, 

B 

JR 34 

(2962) LD FLAG 

CP 3 


JR NZ, 

4 (2936) SET CP-4 

SET 3, 

T". 

O 

JR 26 

(2962) LD FLAG 

CP 4 


JR NZ, 

4 (2944) SET CP-5 

SET 4, 

B 

JR 18 

(2962) L_D FLAG 

CP 5 


JR NZ, 

4 (2952) SET CP-6 

SET 5, 

B 

JR 10 

(2962) LD FLAG 

CP 6 


JR NZ, 

4 (2960) SET 7 

SET 6, 

B 

JR 2 < 

2962) LD FLAG 

SET 7, 

B 

LD (HL 

) , B 

JR 53 

•(3018) RESET END 

EX AF, 

AF’ 

LD B, 

(HL) 

CP 1 


JR NZ, 

4 (2975) RESET CP-2 

RES 1, 

B 

JR 42 

(3017) LD FLAG 

CP 2 


JR NZ, 

(2983) RESET CP-3 

RES 2, 

B 

JR 34' 

(3017) LD FLAG 

CP 3 


JR NZ, 

4 (2991) RESET CP-4 

RES 3, 

B 

JR 26' 

(3017) LD FLAG 

CP 4 


JR NZ, 

4 (2999) RESET CP-5 

RES 4, 

B 

JR IS 

(3017) LD FLAG 

CP 5 


JR NZ, 

4 (3007) RESET CP-6 

RES 5, 

B 

JR 10 

(3017) LD FLAG 

CP 6 


JR NZ, 

4 (3015) RESET 7 

RES 6, 

B 


JR 2 (3017) LD FLAG 
RES 7, B 
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r\ 





3017 

70 

LD FLAG 

3018 

3C 

RESET END 

3019 

FE, 08 


3021 

C2,F9,OA 


3024 

C9 


RESE' 

I BS REGISTER SUBROUTINE 

3025 

3A,BE,5C 

RESET BS REG 

3028 

3C 


3029 

32,BE,5C 


3032 

32,15,63 


3035 

16, AO 


3037 

5F 


3038 

CD,5C,63 


304 1 

16,80’ 


3043 

5F 


3044 

CD,5C,63 


3047 

16,40 


3049 

1E, 00 


3051 

CD,5C,63 


3054 

F5 


3055 

3A,00,AO 


3058 

08 


3059 

3E, 04 


3061 

32,00,AO 


3064 

16« AO 


3066 

IE, CO 


3068 

CD,AD,63 


3071 

CB, 53 


3073 

20,07 


3075 

08 


3 U 7 6 

32,00,AO 


3079 

cr i 
i a. 


3080 

37 


3081 

C9 


3082 

08 

CHUNK 5 

3083 

32,00 , 00 


3086 

FI 


3087 

3D 


7000 

32,BD,5C 


3091 

•-■2, 15, 6 


3094 

16, CO’ 


3096 

IE, 04 


3098 

CD,5C,63 


3101 

A7 


3102 

C9 


GET USR BANK S 

UBROUTINE 

3103 

2B 

GET USR BANK 

3104 

36, 01 


3106 

11,15,00 


3109 

19 


3110 

7E 


3111 

IF 


3112 

38,05 



LD (HL), B 
INC A 
CP 8 

JR NZ, 2809 NEXT CHUNK 
RET 


LD A, (23742) MAX BANK 
INC A 

LD (23742), A MAX BANK 
LD (25365), A BS MAX BANK 
LD D, 160 BITS 7 Zt 5 
LD E, A 

CALL 25436 WRITE BS REG 
LD D, 128 
LD E, A 

CALL 25436 WRITE BS REG 
LD D, 64 
LD E, 0 

CALL 25436 WRITE BS REG 
EX AF, AF’ 

LD A, (40960) START OF CHUNK 5 
EX AF, AF’ 

LD A, 4 
LD (40960), A 
LD D, 160 BITS 7 ?< 5 
LD E, 192 

CALL 25517 READ BS REG 
BIT 2, E 

JR NZ, 7- (3082) CHUNK 5 
EX AF, AF’ 

LD (40960), A 

POP AF 

SCF 

RET 

EX AF, AF’ 

LD (40960) START AT CHUNK 5 
POP AF 
DEC A 

LD (23742), A MAX BANK } 

LD (25365), A BS MAX BANK 
L-D D, 192 
LD E, 4 

CALL 25436 WRITE BS REG 
AND A CLEAR FLAGS 
RET 


DEC HL 
LD (HL), 1 

LD DE, 21 
ADD HL, DE 
LD A, (HL) 

RR A TEST BIT 0 
JR C, 5 (3119) EXTEND 
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311 4 

11,04,00 

3 117 

19 

311S 

CO 

3119 

OE, 08 

3121 

3A,BE,5C 

3124 

2B 

3125 

2B 

3125 

2 B 

3127 

56 

3128 

2B 

3129 

5E 

3130 

62 

3131 

6B 

3132 

47 

1 "T T 

E5 

3134 

C5 

3135 

01,00,00 

3138 

C5 

3139 

C5 

3140 

CD,DO,65 

3143 

11,08,00 

3146 

19 

3147 

C9 

RESE1 

‘ SYSTEM ! 

3148 

AF 1 

3149 

32,BE,5C 

3152 

32,15,63 

3155 

16, CO 

3157 

1E, 00 

3159 

CD,5C,63 

3162 

2A,BC,5C 

3165 

11,OC,00 

3168 

19 

3169 

CD,D1,OB 

3172 

D2,F5,0C 

3175 

7E 

3176 

E5 

3177 

FE, SO 

3179 

20,05 

3181 

11,18,00 

3184 

19 

3185 

77 

3186 

CD,Dl,OB 

3189 

21,E9,5F 

3192 

IE, FF 

3194 

57 

3195 

D5 

3196 

11,00,00 

3199 

D5 

3200 

E5 

3201 

11,16,00 

3204 

D5 

3205 

11,01,00 

3208 

D5 


DE 


LD DE, 

ADD HL 
RET 

EXTEND LD C, 8 

L-D A, (23742) MAX BANK 

DEC HL 

DEC HL 

DEC HL 

LD D, (HL) 

DEC HL 
LD E, (HL) 

LD H, D 
LD L., E 
LD B, A 
PUSH HL 
PUSH BC 
LD BC, 1 
PUSH BC 
PUSH BC 

CALL 26064 CALL BANK 
LD DE, 8 
ADD HL, DE 
RET 

CGURATION SUBROUTINE 


RESET SYS CONF 


RSC- 


RESET BS REG 
SET END MARKER 


RES BS REG 


XOR A CLEAR A 
LD (23742), A MAX BANK = 0 
LD (25365), A BS MAX BANK = O 
LD D, 192 
LD E, 0 • 

CALL 25436 WRITE BS REG 
LD HL, (23740) SYS CONF TABLE 
LD DE, 12 
ADD HL, DE 
CALL 3025 
JP NC 3317 
LD A, (HL) 

PUSH HL 

CP 12S END MARKER? 

JR NZ, 5 (3186) CALL RES BS REG 
LD DE, 24 
ADD HL, DE 
LD (HL), A 

CALL 3025 RES BS REG 

LD HL, 24553 AT USR BANK TABLE 

LD E, 255 

LD D, A 

PUSH DE 

LD DE, O 

PUSH DE 

PUSH HL 

LD DE, 22 

PUSH DE 

LD DE, 1 

PUSH DE 
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3209 

CD,22,67 

79 i 

08 

3213 

7E 

3214 

2F 

3215 

2B 

3216 

77 

3217 

08 

3218 

16,FF 

3220 

5F 


D5 

-7 r~y r-y r-y 

E5 

7007 

11,02,00 

3226 

D5 

3227 

11,01,00 

3230 

D5 

3231 

D5 

T9T9 

CD,22,67 

7n-re 

•—> -ul -2- 

IE, FF 

3237 

57 

3238 

D5 

3239 

11,02,00 

3242 

D5 

3243 

'"OT 

3244 

E5 

3245 

11,01,00 

3248 

D5 

3249 

D5 

OZdU 

CD,22,67 

“T'-kCTT 
•—* \ * • 1 

7E 

3254 

2B 

3255 

46 

3256 

BS 

3257 

20 , OF 

3259 

El 

3260 

7E 

3261 

FE, 02 

3263 

20, 04 

3265 


3266 

n? 

3267 

18,23 

3269 

CD,DB,OA 

3272 

18, IE 

3274 

4E SI 

3275 

El 

3276 

'*7-7 

3277 

n 7 

3273 

7E 

3279 

B9 

3280 

28, 16 

3282 

E5 

3283 

EB 

3284 

21,E9,5F 

3287 

01,16,00 

3290 

ED, BO 


El 


CALL 26402 XFER BYTES 
EX AF, AF’ 

LD A, (HL) 

CPL 

DEC HL 
LD (HL), A 
EX AF, AF’ 

LD D, 255 
LD E, A 
PUSH DE 
PUSH HL 
LD DE, 2 
PUSH DE 
LD DE, 1 
PUSH DE 
PUSH DE 

CALL 26402 XFER BYTES 

LD E, 255 

LD D, A 

PUSH DE 

LD DE, 2 

PUSH DE 

INC HL 

PUSH HL 

LD DE, 1 

PUSH DE 

PUSH DE 

CALL 26402 XFER BYTES 
LD A, (HL) 

DEC HL 
LD B, (HL) 

CP B 

JR NZ, 15 (3274) SKIP WR BS REG 
POP HL 
LD A, (HL) 

CP 2 

JR NZ, 15 (3274) SKIP WR BS REG 
INC HL 
INC HL 

JR 35 (3304) WRITE BS REG 
CALL 2779 SET RST 56 
JR 30 (3304) WRITE BS REG > 

LD C, (HL) 

POP HL 
INC HL 
INC HL 
LD A, (HL) 

CP C 

JR Z, 22 (3304) WR BS REG 
PUSH HL 
EX DE, HL 
LD HL, 23553 
LD BC, 22 
LDIR 
POP HL 


USR BANK TABLE 
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~r p o ~r 

2 B 




DEC 

HL 


3294 

3A,BE, 

5C 



LD 

A , 

(23742) MAX BANK 

7997 

CB, FF 




SET 

—y 
* •« 

A 

3299 

"7 ”7 

/ / 




LD 

(HL 

) , A 

3300 

CD,IF, 

OC 



CAL 

L 3 

103 GET USR BANK 

3303 

< 7 - 7 - 




INC 

HL 


3304 

16, CO 


WRITE 

BS REG 

LD 

D, 

192 

3306 

1 E, 01 




LD 

E, 

1 

3308 

CD,5C, 

63 



CAL 

L 2 

5436 WRITE BS REG 

3311 

11 , 16, 

00 



LD 

DE, 

n n 

3314 

C 6 ,60, 

oc 



JR 

316 

S GET USR BANK 

SET 

END MAF 

:KER 

SUBROUTINE 




3317 

36,80 

8 

ET END 

MARKER 

LD 

(HL 

) , 128 

3319 

CD, FEN 

OC 



CAL 

L 3 

323 CLEAR SYS CONF 

3322 

C9 




RET 



CLEAI 

SYSTEM COMF1 GUR 

ATION SUBF 

(OUT 

INE 


~T "f '■p -tf 

AF 

CLE 

AR SYS 

CONF 

XOR 

A 

CLEAR A 

3324 

"TO pp 
-^-5 C- 5 

5C 



LD 

(23 

742), A MAX BANK = 0 

3327 

2A,BC, 

5C G 

ET SYS 

CONF TABLE L 

D HL, (23740) SYS CONF TABLE 

3330 

11 , oc, 

00 



LD 

DE, 

12 

t t ~r 

19 




ADD 

HL 

, DE 

3334 

7E CLEAR 

DOCK 

SYS LOOP 

LD 

A, 

(HL) 

T tnr 

•JOOU 

FE, 80 




CP 

123 

END MARKER? 

3337 

OO ~7Q 
•*— • n ' 




JR 

2, 

121 (3460) CLEAR MAX BANK 

3339 

O T 




INC 

HL 


3340 

7E 




LD 

A, 

(HL) 

3341 

F B 7 F 




BIT 

7, 

A 

3343 

20,06 




JR 

NZ, 

6-(3351) USR SYS—1 

3345 

11,17, 

00 



LD 

DE, 


3348 

1 O 

A / 




ADD 

HL 

, DE 

3349 

18, EF 




JR 

239 

(3334) CL DOCK SYS LOOP 

3351 

22,E9, 

nrr- 

•_»! 

U 

SR SYS—1 

LD 

(24 

553), HL USR BANK ADDR 1 

3354 

2B 




DEC 

HL 


3355 

7E 




LD 

A, 

(HL) 

3356 

FE, 02 




CP 



3358 

20,08 




JR 

NZ, 

S (3368) USR SYS—2 

3360 

11, 17, 

00 



LD 

DE, 


3363 

19 




ADD 

HL 

, DE 

3364 

3E, FF 




LD 

A, 

255 

3366 

IS, 05 




JR 

5 ( 

3373) USR SYS-3 

3368 

11,17, 

00 

!J 

SR SYS—2 

LD 

DE, 


3371 

19 




ADD 

HL 

, DE 

3372 

7E 




LD 

A, 

(HL) 

3373 

32,EB, 

5F 

U 

SR SYS—3 

LD 

(24 

555), A USR BANK ADDR 2 

3376 

OO 


USR 

SYS LOOP 

INC 

HL 


3377 

7E 




LD 

A, 

(HL) 

3378 

FE, SO 




CP 

128 


3380 

2S,2E 




JR 

z. 

46 (3428) INCREASE BANKS 

3382 

P"T 




INC 

HL 


3383 

7E 




LD 

A, 

(HL) 

3384 

CB, 7F 




BIT 

7, 

A 

3386 

20, 06 




JR 

NZ, 

6 (3394) USR SYS L-l 

3388 

11,17, 

00 



LD 

DE, 

9-7 
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jjrs 



391 

19 

392 

18, EE 

394 

D p 

395 

7E 

TO L. 

/ UJ 

FE, 02 

398 

20,06 

400 

11,17,00 

403 

19 


USR 


L— 1 


3404 

3406 

3407 
3410 


IS, E2 
EB 

01 , 17,00 

09 


USR 


341 1 

3A , EB , 5F 

34 1 4 

47 

3415 

7E 

3416 

B 8 

3417 

30, D5 

3419 

32,EB,5F 

3422 

ED,53,E9, 

3426 

18, CC 

INCREASE BANKS 

3428 

3A,BE,5C 

3431 

3D 

3432 

3A,BE,5C 

3435 

2A,E9,5C 

3438 

77 

3439 

IE, FF 

3441 

57 

3442 

D5 

3443 

5E 

3444 

16,00 

3446 

D5' 

3447 

IE, 00 

3449 

D5 

3450 

IE, 01 

3452 

D5 

3453 

D5 

3454 

CD,22,67 

3457 

C3,FF,OC 

CLEAR MAX BANK 

3460 

AF 

3461 

32,BE,5C 

3464 

TO 1 c- 
i t — 1 , 

3467 

16, CO 

3469 

IE, 00 

3471 

CD,5C,63 

3474 

2A,BC,5C 

3477 

11 ,OD ,00 

3480 

19 

3481 

16 , AO 


SUBROUTINE 
INCREASE BANKS 


3 SUBROUTINE 
CLEAR MAX BANK 


3483 CD,D1,OB CALL RESET BS REC 

3486 DO 

3487 5E 


ADD HL 

, DE 





JR 

2-39 

(3376) 

u 

!SF 

: SYS 

LOOP 

DEC HL 






LD 

a 

(HL) 





CP 

o 






JR 

N 2 , 

6 (3406 

0 

USR SYS L--2 

LD 

DE, 

OT 





ADD HL 

, DE 





JR 

-d u..' 

(3376) 

USF ; 

‘ SYS 

LOOP 

EX 

DE, 

HL 





LD 

BC, 

OT 





ADD 

* HL 

, BC 





LD 

A, 

( 247il = i7i ' 

U 

SR 

: BANK 

: ADDR 2-LOW 

LD 

B, 

A 





LD 

rp 

A, 

P 

(HL) 





JR 

NC, 

213 (33 

7 

6 ) 

USR 

SYS LOOP 

LD 

(24! 

555), A 


RELOAD 

ADDR LOW 

LD 

(24! 

553), DE 





JR 

204 

(3376) 

U 

SR 

SYS 

LOOP 


LD 

A, (23742) 

MAX 

BANK 

I NC 

A 



LD 

(23742), A 

MAX 

BANK 

LD 

HL, (23553) 

L! 

SR SYS BANK ADDR 

LD 

(HL) , A 




LD E, 255 
LD D, A 
PUSH DE • 

LD E, (HL) 

LD D, O 
PUSH DE 
LD E, O 
PUSH DE 
LD E, 1 
PUSH DE 
PUSH DE 

CALL 26402 XFER BYTES 

JP 3327 GET SYS CONF TABLE ADDR 

( 


XOR A CLEAR A 

LD (23742), A MAX BANK = 0 
LD (25365), A BS MAX BANK = 0 
LD D, 192 
LD E, O 

CALL 25436 WRITE BS BANK 
LD HL, (23740) SYS CONF TABLE 
LD DE, 13 
ADD HL, DE 
LD D, 160 

CALL 3025 RES BS REG 
RET NC 
LD E, (HL) 
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3488 

CD,5C,63 


CALL 25436 WRITE BS REG 

3491 

16, CO 


LD D, 160 

3493 

1E, 01 


LD E, 1 

3495 

CD,5C,63 


CALL 25436 WRITE BS REG 

3498 

11,18,00 


LD DE, 24 

3501 

19 


ADD HL, DE 

3502 

18 5 EB 


JR 235 <3483) CALL RESET BS REG 



CHANGE VIDEO MODE ROUTINES 

OPEN 

DISPLAY 

FILE ROUTINE 


3504 

C5 

OPEN D FILE 

PUSH BC 

3505 

D5 


PUSH DE 

3506 

E5 


PUSH HL 

3507 

F5 


PUSH AF 

3508 

2A,B4,5C 


L-D HL, (23732) P RAMTOP 

351 1 

ED,5E,7B 

, 5C 

LD DE, (23675) UDG 

3515 

A 7 


AND A CLEAR FLAGS 

3516 

ED, 52 


SBC HL, DE 

3518 

44 


LD B, H 

3519 

4D 


LD C, L 

3520 

03 


INC BC 

352.1 

2A,7B,5C 


LD HL, (23675) UDG 

3524 

E5 


PUSH HL 

3525 

11,40,08 


LD DE, 2112 MAKE THIS MUCH SPACE 

3528 

A 7 


AND A CLEAR FLAGS 

3529 

ED, 52 


SBC HL, DE 

3531 

EB 


EX DE, HL 

3532 

El 


POP HL • 

3533 

ED,53,7B 

, 5C 

LD (23675), DE UDG 

3537 

ED, BO 

XFER UDG 

L.DIR 

3539 

21 ,00 ,00 


LD HL, 0 

3542 

39 


ADD HL, SP 

3543 

01,CO,97 


LD BC, 38848 AMOUNT OF SHIFT 

3546 

09 


ADD HL, DE 

3547 

F3 


DI NO INTERRUPTS PLEASE 

3548 

F9 


LD SP, HL 

3549 

11,CO,F7 


L_D DE, 63427 

3552 

21,00,60 


LD HL, 24576 

-Jl' -_J u . 1 U 

01,40,08 


LD BC, 2112 

3558 

ED, BO 

XFER DISPATCHER 

LDIR 

3560 

21,00,ID 


LD HL, 7424 ADDR OF FIX BL TABLE 

3563 

01,CO,97 


LD BC, 38848 AMT OF SHIFT 

3566 

5E 

FIX BL LOOP 

LD E, (HL) GET ADDR TO BE FIXED 

3567 

'-y 


INC HL 

3568 

cr L. 


LD D, (HL) 

3569 

r-y-JT 


INC HL 

3570 

7B 


LD A, E IF ZERO, DONE 

3571 

B2 


OR D DE = 0? 

3572 

28, OF 


JR Z, 15 (3589) FIX BL DONE 

3574 

EB 


EX DE, HL 

3575 

09 


ADD HL, BC ADD SHIFT 

3576 

D5 


PUSH DE 

3577 

5E 


LD E, (HL) CALC NEW ADDR 

3578 



INC HL 

3579 

«=: /. 

Uu 


LD D, (HL) 
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3580 EB 


EX DE, HL 

3581 09 


ADD HL, BC 

3582 EB 


EX DE. HL 

358-3 7 


LD <HL) , D POKE NEW ADDR 

3584 2B 


DEC HL 

3*585 ~7'\ 


LD (HL)„ E 

3586 El 


POP HL 

3587 18,E9 


JR 233 (3366) FIX BL_ LOOP 

3589 FI 

FIX BL DONE 

POP AF 

4590 32,C2,SC 


LD (23746), A VID MODE 

3593 F5 


PUSH AF 

3594 FB 


El 

3595 21,00,60 

CLEAR D FILE 2 

LD HL, 24576 D-FILE 2 

3598 AF 

CL D F LOOP 

XOR A CLEAR A 

3599 77 


LD (HL), A 

3600 23 


INC HL 

3601 7C 


LD A, H 

3602 FE,7B 


CP 123 H AT END? 

3604 20,F8 


JR N2, 248 (3598) CL D F LOOP 

3606 FI 


POP AF 

3607 F5 


PUSH AF 

3608 E6,7F 


AND 127 CLEAR BIT 7 

3610 47 


L D B, A 

3611 DB,FF 


IN A, (255) 

3613 El6,80 


AND 128 SAVE BIT 7 

3615 BO 


OR B 

3616 D3,FF 


OUT (255), A 

36IS El 


POP HL • 

3619 D1 


POP DE 

3620 Cl 


POP BC 

3621 FI 


POP AF 

3622 C9 


PET- 

CLOSE DISPLAY 

FILE ROUTINE 


cr cr 

■—* r w* 

CLOSE D FILE 

PUSH AF SAVE REGISTERS 

3624 C5 


PUSH BC 

3625 D5 


PUSH DE 

3626 E5 


PUSH HL 

3627 DB,FF 


IN A, (255) 

3629 E6,SO 


AND 128 

3631 D3,FF 


OUT (255), A 

3632' 21,00,00 


LD HL, 0 

3636 39 


ADD HL, SP 

3637 11,CO,97 


LD DE, 38848 AMT OF CHANGE 

3640 A7 


AND A CLEAR FLAGS 

3641 ED,52 


SBC HL, DE 

3643 F3 


DI 

3644 F9 


LD SP, HL 

3645 21,FF,FF 


LD HL, 65535 P RAMTOP 

3648 11, -3F, 68 


LD DE, 26687 TOP DEST ADDR 

3651 01,40,08 


LD BC, 2112 

3654 ED,B8 

XFER DISPATCHER 

LDDR 

3656 21,00,ID 


LD HL, 7424 FIX BL TABLE 

3659 OC,CO,97 


LD BC, 38848 

3662 5E 

FIX BL LOOP 

LD E, (HL) 
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3663 


3664 

56 

3665 

O -y- 

3666 

7B 

3667 

B2 

3668 

28, 10 

3670 

E5 

3671 

EB 

3672 

5E 

36/3 

2 3 

3674 

56 

3675 

EB 

3676 

A 7 

3677 

ED, 42 

3679 

EB 

3680 

79 

3681 

2B 

3682 

73 

3683 

El 

3684 

18, ES 

3686 

AF XFER UDG 

3687 

32,C2,5C 

3690 

FB 

3691 

21,BF,F7 

3694 

1 1 ,FF,FF 

3697 

E5 

3698 

ED,4B,7B,5C 

3703 

ED, 42 

3705 

44 

3706 

4D 

3707 

03 

3708 

El 

3709 

ED, B8 

3711 

11,40,08 

3714 

2A,7B,5C 

3717 

19 

3718 

22,7B,5C 

3721 

El 

•7*799 

D1 

3723 

Cl 

3724 

FI 

~T -7cr 

C9 

CHANGE VIDEO MODE ROUTINE 

3726 

C5 CHANGE VIDEO 

3727 

D5 

3728 

E5 

3729 

F5 

3730 

47 

3731 

3A,C2,6C 

3734 

A7 

3735 

20,54 

3737 

BO 

3738 

CA,3D,OF 

3741 

21,CO,12 


INC IHL 
LD D, (HL) 

INC HL 
LD A, E 

OR D DE =0 ? TABLE END? 

JR Z, 16 (3636) XFER UDG 
PUSH HL 
EX DE, HL 
LD E, (HL) 

INC HL 
LD D, (HL) 

EX DE, HL 

AND A CLEAR FLAGS 

SBC HL, DE 

EX DE, HL 

LD (HL), D 

DEC HL 

LD (HL), E 

POP HL 

JR 232 (3662) FIX BL LOOP 
XOR A CLEAR A 

LD (23746), AVID MODE = O 
El 

LD HL, 63423 
LD DE, 65535 
PUSH HL 

LD BC, (23675) UDG ADDR 
SBC HL, 1 BC 
LD B, H 
LD C, L • 

INC BC 
POP HL 
LDDF: 

LD DE, 2112 

L-D HL, (23675) RESET UDG 

ADD HL, DE 

LD (23675), HL 

POP HL 

POP DE 

POP BC 

POP AF 

RET 


PUSH BC 
PUSH DE 
PUSH HL 
PUSH AF 
LD B, A 

LD A, (23746) VID MODE 
AND A CLEAR FLAGS 
JR NZ, 84 (3821) MODE O 
OR B 

JP Z, 3901 CHANGE VIDEO END 
LD HL, 4800 
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3744 

44 

3745 

4D 

3746 

1 1 , 40,08 

3749 

19 

3750 

ED,5B,65 

3754 

19 

3755 

ED,5B,B2 

T —7 «=; o 

/\ ~7 

/ v_.l / 

M / 

3760 

ED, 52 

3762 

D2,3A,OF 

~r *7 l. «=• 

21,3F,68 

3768 

11,CA,12 

3771 

D5 

—r —y n 

11,00,FF 

3 775 

D5 

T "7 "7 £- 

•„.* / / u_> 

11 ,00,00 

3779 

05 

3780 

D5 

3781 

CD,DO,65 

3784 

2A,65,5C 

3787 

EB 

3788 

ED, B8 

3790 

FI 

3791 

F5 

3792 

CD,BO,OD 

3795 

01,CO,97 

3798 

2A,3D,5C 

3801 

09 

3802 

22,3D,5C 

3805 

2A,3F,5C 

3808 

09 

3809 

r? "0 T ET cn 
-u-^5 Oh , 

3812 

2A,CO,5C 

;n; o «=; 

09 

3816 

22,CO,5C 

3819 

18, 50 

3821 

78 

3822 

A7 

3823 

28, 10 

T O cr 

E6,7F 

3327 

47 

3828 

DB,FF 

3830 

E6,80 


BO 

3833 

D3, FF 

3835 

78 

3836 

32,C2,5C 

3839 

IS, 3C 

3841 

CD,27,OE 

3844 

01,CO,97 

3347 

2A,3D,5C 

3850 

A7 

3351 

ED, 42 

3853 

22,3D,5C 

3856 

2A,3F,5C. 


LD B, H 
LD C, L 
LD DE, 2112 

ADD HL, DE HL= 6912 (SPACE) 
LD DE, (23653) STK END 
ADD HL, DE 

LD DE, (23730) RAM TOP 
AND A CLEAR FLAGS 
SBC HL, DE 

JP NC, 3898 CV ABORT 
LD HL, 26687 

LD DE, 4810 REMGSZ(POINTERS) 
PUSH DE 

LD DE, 255 (BANK) 

PUSH DE 
LD DE, 0 
PUSH DE 


PUSH DE 

CALL 26064 CALL BANK 
LD UP PROG LD HL, (23653) STK BOTTOM 
EX DE, HL 
LDDR 
POP AF 
PUSH AF 

CALL 3504 OPEN D-FILE 
LD BC, 38848 SHIFT AMT 
UPDATE POINTERS LD HL, (23613) ERR SP 

ADD HL,’ BC 

LD (23613), HL ERR SP 
LD HL, (23615) LIST SP 
ADD HL, BC 

LD (23615), HL LIST SP 
LD (23744), HL MACH STK BOT 
ADD HL, BC 
LD (23744), HL 
JR 80 (3901) CV END 
MODE O LD A, B 

AND A CLEAR FLAGS 

JR Z, 16 (3841) MODE 0-2 

AND 127 

LD B, A 

IN A, (255) 

AND 128 
OR B 


OUT (255), A 
LD A, B 

LD (23746), A VID MODE 

JR 60 (3901) CV END 

CALL 3623 CLOSE D-FILE 

LD BC, 38848 UPDATE POINTERS 

LD HL, (23613) ERR SP 

AND A CLEAR FLAGS 

SBC HL, DE 

LD (23613), HL 

LD HL, (23615) LIST SP 


MODE 0-2 




3859 

A7 


2560 

ED, 42 


2862 

22,3F,5C 


2865 

2A,CO,5C 


2868 

A7 


2869 

ED, 42 


2871 

22,CO,5C 


2874 

01,CO,12 


2877 

21,40,68 


3880 

11,50,17 


3883 

D5 


3884 

11 ,00,FF 


3887 

D5 


3888 

11 ,00,00 


389 1 

D5 


3892 

D5 


3893 

CD,DO,65 


3896 

18,03 


3898 

37 

CV ABORT 

3899 

18,01 


3901 

A 7 

CV END 

3902 

F2 

GET REGISTERS 

3903 

El 


3904 

D1 


3905 

Cl 


3906 

C9 



PASSING ROUTINE 

3907 ED,4B,5D,5C PASSING 

3911 CD,5D(5E),25 !!ERROR!! 

3914 2A,5D,5C 

3917 A7 

3918 ED,42 

3920 2B 

3921 7D 

3922 2A,65,5C 

3925 77' 

3926 23 

3927 Cl 

3928 70 

3929 23 

3930 71 

3931 23 

3932 22,65,5C 
3935 2A,5D,5C 

3938 2B 

3939 CB,47 
3941 28,OC 

3943 3D PASS LOOP 

3944 46 

3945 2B 

3946 3D 

3947 FA, 7D, OF 
3950 4E 


AND A CLEAR FLAGS 
SBC HL, DE 

LD (23615), HL LIST SP 
LD HL, (23744) MACH STK BOT 
AND A CLEAR FLAGS 
SBC HL, BC 

LD (23744) ,HL MACH STK BOT 

LD BC, 4800 

LD HL, 26688 

LD DE, 5968 DEL REC 

PUSH DE 

LD DE, D=255 (BANK #) 

PUSH DE 
L.D DE, O 
PUSH DE 
PUSH DE 

CALL 26064 CALL BANK 
JR 3 (3901) CV END 
SCF 

JR 1 (3902) GET REGISTERS 

AND A CLEAR FLAGS 

POP AF 

POP HL 

POP DE 

POP BC 

RET 


LD BC, (23645) CHAR. ADDR 
CALL 9565 (9566) CALL END? 
NOT FATAL-WILL STILL WORK 
LD HL, (23645) 'CHAR ADDR 
AND A CLEAR FLAGS 
SBC HL, BC 
DEC HL 
LD A, L 

LD HL, (23653) SKT END 

LD (HL), A PUT # ON STACK 

INC HL 

POP BC 

LD (HL), B 

INC HL 

LD (HL), C 

INC HL 

LD (23653), HL STK END 
LD HL, (23645) CHAR ADDR 
DEC HL 
BIT O, A 

JR Z, 12 (3953) PASS-2 
DEC A 
LD B, (HL) 

DEC HL 
DEC A 

JP N, 3965 GET GOSUB ADDR 
LD C, (HL) 
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3951 

2 B 

3952 

C5 

3953 

18,F4 

3955 

06, 20 

3957 

A7 

3958 

CS 

3959 

4E 

3960 

2B 

3961 

3D 

3962 

C5 

3963 

18, EA 


DEC HL 
PUSH BC 

JR 244 (3943) PASS LOOP 
PASS -2 LD B, 22 

AND A CLEAR FLAGS 
RET Z 
LD C, (HL) 

DEC HL 
DEC A 
PUSH BC 

JR 234 (3943) PASS LOOP 


PASSING SE 
3965 2A,6‘ 
3968 2B 


GOSUB ADDRESS 


JBROUTINE 


5C GET GOSUB ADDR 


LD HL, 
DEC HL 


(23653) 


5TK 


: 9 6 9 

7E 

:970 

2B 

971 


i974 

66 

975 

6 F 

976 

E5 

977 

C9 


LD A, (HL.) 

DEC HL 

LD (23653), HL STK 
LD H, (HL) 

LD L, A 
PUSH HL 

RET (TO PUSHED HL) 


END 


END 


GOTO 

BANK 

ROUTINE 

3978 

F5 


GOTO BANK 

3979 

3A, 

C2, 

SC- 

3982 

A 7 



3983 

28, 

04 


3935 

FI 



3986 

C3, 

72, 

65 

3989 

FI 


MODE 0 

3990 

C3, 

70 

/ 5 

65 


PUSH AF 

LD A, (23746) VID MODE 
AND A CLEAR FLAGS 
JR Z, 4 (3939) MODE O 
POP AF 

JP 64318-GOTO BANK HIGH 
POP AF 

JP 25970 GOTO BANK 


CALL BANK ROUTINE 

3993 F5 CALL BANK 

3994 3A,C2,5C 

3997 A7 

3998 23,04 

4000 FI 

4001 C3,90,FD 

4004 FI MODE O 

4005 C3,DO,65 


PUSH AF 

LD A, (23746) VID MODE 
AND A CLEAR FLAGS 
JR Z, 4 (4004) MODE 0 
POP AF 

JP 64912 CALL BANK HIGH 
POP AF 

JP 26064 CALL BANK 


4003-4095 BLANK 

4096-5662 FUNCTION DISPATCHER 

5663-7423 BLANK 


FIX BL TABLE 


7424 

32,62 

(25137) 

7426 

4D, 62 

(25165) 

7428 

72,62 

(25202) 

7430 

AB, 62 

(25259) 

7432 

BS, 62 

£ *■■> cr ' 7 > ~7 *0 


(SEE 25088 TRANSFERRED POSN) 


ADDRESSES TO BE CHANGED AS THE 
FUNCTION DISPATCHER IS RELOCATED 
OFFSET IS ALWAYS 38848 UP OR DOWN 
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7434 

CD, 62 

(25293) ^4 

7436 

D3, 62 

(25299) 

7438 

DC, 62 

(25308) 

7440 

FB, 62 

(25339) 

7442 

1A, 63 

(25370) 

7444 

20,63 

(25376) 

7446 

24,63 

(25380) 

7448 

2A, 63 

(25386) 

7450 

35, 63 

(25397) 

7452 

3E, 63 

(25406) 

7454 

44,63 

(25412) 

7456 

48,63 

(25416) 

7458 

4E, 63 

(25422) 

7460 

57,63 

(25431) 

7462 

17,64 

(25623) 

7464 

IE, 64 

(25629) 

7466 

28,64 

(25640) 

7468 

61,64 

(25697) 

7470 

65, 64 

(25701) 

7472 

6D, 64 

(25709) 

7474 

9F, 64 

(25759) 

7476 

AC, 64 

(25769) 

7478 

B3, 64 

(25779) 

7480 

0E(0F) 

,65 (25870) !!ERROR!! SHOULD BE 25871! 

7482 

16(17) 

,65 (25873) !!ERROR!! SHOULD BE 25879! 

7484 

32, 65 

(25906) THESE ERRORS NOT FATAL UNDER PRESENT USE 

7436 

3A, 65 

(25914) AS THE ROUTINE THEY ARE IN IS NOT USED 

7488 

5C, 65 

(25948) BUT ARE FATAL WITH FULLY FUNCTIONAL 

7490 

66,65 

(25958) DISPATCHER. THEY ALSO RECUR WITH EVERY 

7492 

CE, 65 

(26062) TRANSFER UP OR DOWN. 

7494 

85,65 

(25989) 

7496 

D3, 65 

(26067) 

7498 

ED, 65 

(26093) 

7500 

F9,65 

(26105) 

7502 

1E, 66 

(26142) 

7504 

2D, 66 

(26157) 

7506 

3A, 66 

(26170) 

7508 

42,66 

(26178) 

7510 

50,60 

(26192) 

7512 

66,66 

(26214) 

7514 

72,66 

(26226) 

7516 

80, 66 

(26240) 

7518 

94,66 

(26260) 

7520 

CO, 66 

(26304) 

7522 

FD, 66 

(26365) 

7524 

03,67 

(26371) 

7526 

30,67 

(26416) 

7528 

4F, 67 

(26447) !!ERROR!! SHOULD BE DELETED AND ALL THE 

7530 

50,67 

(26448) REST MOVED UP. JUST PUTTING IN 00,00 WILL 

7532 

5A, 67 

(26458) NOT DO AS THE ROUTINES USING THIS TABLE 

7534 

76,67 

(26486) WILL ASSUME THE TABLE HAS ENDED, 

7536 

7D, 67 

(26493) 

7538 

A7,67 

(26535) 

7540 

DC, 67 

(26588) 

7542 

E3,67 

(26595) 
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7544 

F6, 67 

(26614) 

7546 

00 „ 00 

END MARKER 

7S40 

-7899 

UNUSED 

FUNCTION DISPATCHER JUMP TABLE 

7900 

95,17 

PUT LINE 

7902 

i ~r oo 

-• •) '-j 

DRAW LINE 

7904 

24, 26 

FIND POINT 

7906 

39, 09 

SCROLL 

7908 

A 6,08 

K-CLS 

7910 

3F, 07 

PUT MESSAGE 

7912 

66,05 

PUT NEW LINE 

7914 

54 s 05 

PUT CUR RIGHT 

7916 

a n'~. 

PUT CUR LEFT 

79 IS 

BO , 02 

IJPD-KEYBQARD 

7920 

10„00 

WRITE CHAR 

7922 

ED, 11 

SEND CHAR 

7924 

CF, 11 

READ CHAR 

7926 

6C, 3C 

TO THE 

7928 

65, 3C 

SQE 

7930 

5E, 3C 

ACS 

7932 

4E,3C 

ASN 

7934 

FD,3B 

ATN 

707 JL 
/ 7 -.'O 

F5,3B 

TAN 

7938 

DO, 3B 

SIN 

7940 

C5,3B 

cos 

7942 

9E,3B 

GET ARGUMENT 

7944 

2E, 3B 

LN 

7946 

DF,3A 

EXP 

7948 

CA,3A 

INI 

7950 

BB,3A 

IND DIV(N MOD M) 

7952 

56,36 

E TO FP 

7954 

D3,35 

TRUNCATE 

7956 

6E, 35 

DIVIDE 

7958 

89,34 

TIMES 

7960 

68,34 

MULTIPLY 

7962 

D3,33 

ADD 

7964 

CE, 33 

SUBTRACT 

7966 

A1,31 

OUTPUT # 

7968 

93,31 

FP TO A 

7970 

60,31 

FP TO BC 

7972 

F9,30 

INT TO FP 

7974 

E9,30 

STK BC 

7976 

E6, 30 

6TK A 

7978 

59,30 

STK UNSIGNED # 

7980 

CO, 2F 

DIM 

7982 

AF, 2F 

POP STRING 

7984 

BD,2E 

LET 

7986 

74,2E 

PUT AEDCB 

7988 

70, 2E 

PUSH STRING 

7990 

70,2C 

FIND N (VARIABLE) 

7992 

F2’29 

FIND INKEY* 

7994 

E5,29 

FIND PI 

7996 

B6(BC> 

,29 RND !!ERROR!! 


WORKS FROM CODE 


146 DOWN 


! ■ ERROR! ! CORRECT AS SHOWN 
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7998 

n ‘ r oo 

FIND ATTR 

8000 

op oo 

LJ 1— , 

FIND SCREEN# 

8002 

54,28 

EXPRESSION ■ 

8004 

10 , 28 

DRAW LINE 

8006 

DB, 26 

DRAW 

8008 

79,26 

CIRCLE 

8010 

60,26 

GET X, Y 

8012 

3E, 26 

PLOT BC 

8014 

~T cr 

-J , -t_ u 

PLOT 

8016 

03, 26 

SCRNBL(CALC SCREEN ADDR 

8018 

1 D, 24 

HIFLASH 

8020 

DE, 23 

COLOR 

8022 

SO, 23 

CHAN = KB? 

8024 

JL Vj OO 

C_< ^ 

INPUT SEQ 

8026 

2 B, 2 2 

INPUT- 

8028 

7E, 21 

PRINT SEQ 

8030 

59,21 

PRINT 

8032 

55,21 

LPRINT 

8034 

ID, 20 

DEF FN 

8036 

09 ,20 

BREAK? 

8038 

EB, IF 

PAUSE 

8040 

D4, IF 

RETURN 

8042 

BB, IF 

CK SZ 

8044 

99, IF 

GOSUB 

8046 

39 , 1 F 

CLEAR BC 

8048 

36, IF 

CLEAR 

8050 

23, IF 

FIX U (GET INT) 

8052 

IE, IF 

FIX U1(GET SINGLE INT) 

8054 

IF, IE 

JUMP(GOTO) 

8056 

E4, IE 

CONTINUE 

8058 

D4, IE 

RANDOMIZE 

8060 

CA, IE 

RESTORE 

8062 

82, IE 

DATA 

8064 

97, ID 

READ 

8066 

55, ID 

NEXT 

8068 

59, 1C 

STOP 

8070 

78, 1C 

FOR¬ 

8072 

D8, 1A 

EX ECUTE LINE 

8074 

27, 1A 

CHECK SYNTAX 

8 076 

83, 17 

PUT BC (PUT LINE IS 95, 

8078 

50, 17 

DELETE RECORD 

8080 

20 , 17 

RECORD LENGTH 

8082 

F0, 16 

FIND SUB LINE 

8084 

D6, 16 

FIND LINE 

8086 

OD ,16 

FLASH A 

8088 

DO, 25 

MOVE 

8090 

CC, 25 

FORMAT 

8092 

D4,25 

ERASE 

8094 

CS, 25 

CATALOG 

8096 

65, 14 

OPEN CHAN 

8098 

2A, 14 

OPEN 

8100 

BE, 13 

CLOSE CHAN 

8102 

9F, 13 

CLOSE 

8104 

54, 13 

RESET CALC STACK 

8106 

BB, 12 

INSERT 
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8108 

30, 12 

SELECT CHAN 

8110 

e i; 11 

IN CHAR- 

8112 

31,0D 

INI TALI2E 

8114 

1D , 0D 

NEW 

8116 

0D , 0D 

DESLUG 

8118 

4A, 0A 

PRINTER SCAN 

8120 

23, 0A 

DUMP (TO) PRINTEI 

8122 

EA, 08 

CLS 

8124 

A9,08 

CLS-LH 

8126 

88, 08 

READ ATTR 

8128 

10, 07 

ATTR BYTE 

8130 

B2 , 05 

SET AT 

8132 

00,05 

SEND TV 

8134 

02, OA 

K DUMP(COPY) 

8136 

36 , 04 

BEEP 

8138 

FE, 03 

PAR P (SOUND) 

8140 

E1,02 

UPD-KEYBOARD 

8142 

FF, FF 


8144 

FF, FF 


8146 

FF, FF 


8148 

FF, FF 


8150 

FF, FF 


Qi cn 
Cj 1 oE 

1 L. "7 

i. <| u_« / 

XFER BANK (6722) 

O 1 «=! A 

*..J X \J "t 

CF, 65 

CALL BANK (67D0) 

8156 

71,65 

GOTO BANK (6772) 

8158 

99,64 

BANK ENABLE 

8160 

5E, 64 

GET BANK # 

8162 

05,64 

GET STATUS 

8164 

FF, FF 


8166 

FF, FF 


8168 

FF, FF 


8170 

FF, FF 


8172 

E5,00 

WRITE BORDER 

8174 

A3(8E> 

,OE CHANGE VIDEO 

8176 

51,08 

SAVE 

8173 

E5,06 

MERGE 

8180 

CC, 05 

LOAD 

8182 

AB, 01 

SLVM 

8184 

8 D, 01 

READ EDGE 

8186 

89,01 

READ BIT 

8188 

FC, 00 

READ TAPE 

8190 

68 ,00 

WRITE TAPE 


END OF FROM 



ERROR LIST 
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ADDR ROUTINE 

109 28 NONMASKABLE INTERRUPT CORRECTS DELETE PRINT 


1256-1 

279 

PROGRAM NAME 

UNUSED 

9663 

CD,09,OF 

??? PASS EM 

CALL TO 3849?? 

9700-9 

728 

GARBAGE 

UNUSED 

13759 

El 

DIVIDE 

WRONG JUMP CAUSES CERTAIN NUMBERS 




NOT TO BE ROUNDED 

13796- 

13822 

TRUNCATE 

CAN BE DELETED AS IS UNNECCARY 




CHECK OF -65536 

25408 

D5 

PUT WORD 

NEEDS REWRITE 

25424- 

25429 Cl 

,D1,73,72,2B 


25611 

24 

GET STATUS 

NEEDS REWRITE 

25615 

37 



25618 

27 



25648 

OE, FF 



25650 

DB, FF 



O cr / cr. 

•— 1 

E6, 80 



25654 

28,12 



25656 

18,08 



25658 

OE , FF 



25660 

DB, FF 



25662 

E6,80 



25664 

20,08 



25666 

DB , F4 



2566S 

2F 



25669 

18,02 



25671 

DB, F4 



25673 

4F 



25753 

00 

BANK ENABLE 

SHOULD HAVE DISABLE INTERRUPT ON 

25757 

F3 



25884 

FB 



25930 

F3 

RESTORE STATUS 

SHOULD HAVE DISABLE INTERRUPT 

25968 

FB 



26128 

09 

CALL BANK 

SHOULD GET NEXT PARAMETER 

26474 

5F 

XFER BYTES 

WRONG REGISTER LOADED 

E3912 

5E 

PASSING WRONG CALL ADDR BUT WILL STILL WORK 

E7480 

OF 

FIX BL TABLE 

WRONG ADDRESSES 

E7482 

17 



E7528 

DELETE 

AND MOVE REST OF 

TABLE UP 



E7996 BC 


JUMP TABLE 


RND WRONG ADDR 




FLAGS LISTING 


239 


IF OFF 

CHECK SYNTAX 
STRING 
NO KEYHIT 
REG CHARACTER 
K MODE AT CURSOR 
K MODE AT CHAR 
TO SCREEN 

DONT SUPPRESS SPACE 

23612 TV FLAGS 

7 AND 6 NOT USED 

5 CLEAR SCREEN WHEN KEY PRESSED 

4 AUTO LIST 

3 ECHO INPUT FROM KEYBOARD 

9 

1 OUTPUT LINE FOR EDIT OR # FOR STRING 
O USE LOWER SCREEN USE UPPER SCREEN 

23665 FLAG X 

7 LINE INPUT STRING LINE 

6 NEED NUMBER 

5 NEED INPUT PROGRAM LINE 

4-3-2 NOT USED 

1 VARIABLE NOT FOUND VARIABLE FOUND 

O FLEXIBLE LENGTH NEEDED 

23697 p FLAG 

7 PAPER COMPLIMENT OF INK PERM 

6 PAPER COMPLIMENT OF INK TEMP 
5 INK COMPLIMENT OF PAPER PERM 

4 INK COMPLIMENT OF PAPER TEMP 

3 INVERT (INV)' PERM 

2 INVERT(INV) TEMP 

1 OVER (XOR) PERM 
O OVER (XOR) TEMP 

23658 FLAGS 2 

6-7 NOT USED 

5 DELETE KEY REPEAT 

4 RETYPE POSSIBLE AFTER SYNTAX ERROR 

3 CAPS LOCK ON 

2 INSIDE STRING WHEN DONG KEYBOARD LIST CHAR 
1 PRINTER BUFFER NOT EMPTY 

O AUTOMATIC LISTING ON SCREEN 


IF ON 

23611 FLAGS 

7 NEED INTERRUPT 
6 NUMBER 
5 KEYHIT 
4 TOKEN/SLUG 
3 L MODE AT CURSOR 
2 L MODE AT CHAR 
1 TO PRINTER 
O SUPRESS SPACE 


23617 MODE 

1 G MODE 

O E MODE K OR L MODE 

AROS 

23748/9 POINTER BUFFER 

23750 FLAG 7 PRESENT 4 NEXT LINE 3 DATA LINE 1 SCREEN 
23751/2 CURRENT DATA LINE 
23753/4 LEN CURRENT DATA LINE 
23755 STREAM # 
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INDEX TO ROUTINES LISTING SPECTRUM EQUIVALENTS 


PAGE ROUTINE 


1 START(PLUGIN) 


RESTART 


2068 
ROUTINES 


ADDR 
AND TABLES 


SPECTRUM 


1 ERROR RESTART 
1 PRINT (WRITE CH) RESTART 
1 GET CHAR RESTART 
1 NEXT CHAR RESTART 
1 CALCULATE FLOATING POINT 
1 MAKE BC SPACES RESTART 

1 MASKABLE INTERRUPT RST 

2 ERROR-2 

2 NON MASKABLE INTERRUPT 
2 CHARACTER ADDRESS +1 
2 SKIP OVER 
2 TOKEN SPELL TABLE 
4 KEY TABLES 


0000/0000 

0000/0000 

0008/0008 

0003/0008 

0016/0010 

0016/0010 

0024/0018 

0024/0018 

0032 / 0 0 2 0 

0032/0020 

0040. 

''0028 

0040/0028 

0048/0030 

0048/0030 

0 0 56 / 0038 

0056/0038 

0083, 

'0053 

0083/0053 

0102/0066 

0102/0066 

0116/0074 

0116/0074 

0125/007D 

0125/007D 

0152/0098 

0149/0095 

0551/0227 

0517/0205 


3 

6 

7 


KEBOARD SCAN 
UPDATE KEYBOARD 
REPEATING KEY 
TEST KEYBOARD MODE 


KEYBOARD ROUTINES 
068S/02B0 
0737/02E1 
0822/0336 
0860/035C 


0654/028E 
0703/02BF 
0784/0310 
0798/03IE 


SPEAKER ROUTINES 


9 

SOUND(PAR P) 

1011/03F3 

10 

BEEP 

1078/0436 

11 

SEMITONE TABLE(NOTES) 

1196/04AC 

11 

PROGRAM NAME(NOT USED) 1256/04ES 

SCREEN AND PRINTER HANDLING 

12 

SEND TV 

1280/0500 

12 

CONTROL CHARACTER TABLE 

1320/0528 

13 

CURSOR LEFT 

1338/053A 

13 

CURSOR RIGHT 

1364/0554 

13 

NEWLINE 

1382/0566 

13 

PRINT COMMA 

1398/0576 

13 

PRINT "?" 

1408/0580 

13 

COMTROL CHAR W OPERANDS 

1412/0584 

14 

PRINTABLE CHAR CODES 

1520/05F0 

14 

POSITION STORE 

1523/05F3 

15 

GET PQSITON 

1562/061A 

15 

PRINT ANY CHARACTER 

1595/063B 

16 

PRINT ALL CHARACTERS 

1716/06B4 

17 

SET ATTF; BYTE 

1808/0710 

18 

MESSAGE PRINTING 

1855/073F 

18 

PRINTOUT SAVE 

1910/0776 

18 

TABLE SEARCH 

1916/077C 

19 

TEST FOR SCROLL 

1936/0790 

20 

SCROLL MESSAGE 

2099/0833 

20 

SCROLL LOWER SCREEN 

2109/083D 

21 

TEMPORARY COLOR ITEMS 

2184/0888 

21 

CLS COMMAND 

2214/08A6 


'0949/03B5 
1016/03F8 
1134/046E 
1194/04AA 

ROUTINES 

2548/09F4 
2577/0A11 
2595/0A23 
2621/0A3D 
2639/0A4F 
2655/0ASF 
2665/0A69 
2669/0A6D 
2777/0AD9 
2780/0ADC 
2819/0B03 
2852/0B24 
2943/0B7F 
3035/0BDB 
3082/0C0A 
3131/0C3B 
3137/0C41 
3157/0C55 
3320/OCF8 
3330/0D02 
3405/0D4D 
3435/0D6B 
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22 CLEAR FULL SCREEN 

22 CLEAR SET 

23 SCROLLING 

24 CLEAR LINES 

24 CLEAR ATTR 

25 CLEAR ADDRESS 

25 SCROLL WAIT FOR KEY 

25 COPY COMMAND 

26 COPY BUFFER 

26 CLEAR PRINTER BUFFER 

26 COPY LINE 

27 EDITOR 

28 ADD CHARACTER 
28 EDIT KEYS TABLE 

28 EDIT KEY 

29 CURSOR DOWN EDITING 
29 CURSOR LEFT EDITING 

29 CURSOR RIGHT EDITING 

30 DELETE EDITING 
30 EDIT IGNORE 

30 ENTER EDITING 
30 EDIT EDGE (MARGIN) 

30 CURSOR UP EDITING 

31 EDIT SYMBOL 
31 EDIT ERROR 
31 CLEAR SPACE 

31 KEYBOARD INPUT 

32 LOWER SCREEN COPYING(ECHO 

33 SET HL & SET DE 

33 DESLUG 

EXECUTI 

34 NEW COMMAND 
34 INITALIZE 

34 RAM CHECK 

35 NEW 

36 MAIN EXECUTION LOOP 
38 REPORT MESSAGES 

40 MAIN ADD 

40 INITIAL CHANNEL INFO 

41 INITIAL STREAM INFO 
41 WAIT FOR KEY 

41 INPUT ADD 

41 MAIN PRINTING 

42 CHANNEL OPEN 

42 CHANNEL FLAG 

43 CHAN CODE LOOKUP TABLE 

43 CHAN K FLAG 

44 CHAN S FLAG 
44 CHAN P FLAG 
44 ONE SPACE 
44 MAKE ROOM 
44 POINTERS 

44 POINTERS (CART) 

45 COLLECT A LINE NUMBER 


22S2/0SEA 

- 3503/OB6B 

2324/0914 

3545/0DD9 

2361/0939 

3582/ODFE 

2431/097F 

3652/0E44 

2499/09C3 

3720/0ES8 

2518/09D6 

3739/0E9B 

2535/09E7 

NO EQUIVALENT 

2562/0A02 

3756/OEAC 

2595/0A23 

3789/OECD 

2613/0A35 

3807/OEDF 

2634/0A4A 

3828/0EF4 

2690/0A82 

3884/0F2C 

2791/0AE7 

3969/OF81 

2822/OB06 

4000/OFAO 

2831/OBOE 

4 O O 9 / O F A 9 

2905/0B59 

4083/OFF3 

2925/0B6D 

4103/1007 

2930/0B72 

410S/100C 

2939/0B7B 

4117/1015 

2948/0B84 

4126/101E 

2954/0B8A 

4132/1024 

3967/0B97 

4145/1031 

3007/OBBF 

4185/1059 

3036/0BDC 

4214/1076 

3045/0BE5 

4223/107F 

3069 / 0B F D 

4247/1097 

3086/OCOE 

4264/10A8 

3203/0C83 

• 4381/11 ID 

3318/0CF6 

4496/1190 

3341/ODOD 

4519/11A7 

■'E ROUTINES 

3357/0D1D 

4543/11B7 

3377/0D31 

4555/11CB 

3392/0D40 

4570/11DA 

3458/0B82 

NO EQUIVALENT 

3624/0E28 

4770/12A2 

3941/0F65 

5009/1391 

4440/1158 

5469/155D 

4522/11AA 

5551/15AF 

4545/11C1 

5574/ 15C6' 

4559/11CF 

5588/15D4 

4577/1 IE1 

5606/15E6 

4586/11EA 

5615/15EF 

4656/1230 

5633/1601 

4680/1248 

5653/1615 

4755/1293 

5677/162D 

4762/129A 

5684/1634 

4776/12A8 

5698/1642 

4780/12AC 

5709/164D 

4792/12BS 

5714/1652 

4795/12BB 

5717/1655 

4810/12CA 

5736/1664 

4812/12CC 

NO EQUIVALENT 

4894/131E 

5775/168F 
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45 

RESERVE 

4909/132D 

5790/169E 


46 

SET MIN(CLEAR EDIT LINE) 

4927/133F 

5808/16BO 

y 

46 

RECLAIM EDIT LINE 

4963/1363 

5844/16D0 


46 

SEARCH (INDEXER) 

4970/136A 

5851/16DB 


46 

SEARCH (CART SYSTEM) 

4930/1374 

NO EQUIVALENT 


47 

CLOSE tt COMMAND 

5023/139F 

5861/16F5 


47 

CLOSE-2 

5054/13BE 

5889/1701 


47 

SYS CONF CK FOR CLOSE 

5080/13D8 

NO EQUIVLENT 


48 

CLOSE STREAM LOOKUP TABLE 

5127/1407 

5910/1716 


48 

CLOSE STREAM 

5133/140D 

5916/171C 


48 

STREAM DATA 

5135/140F 

5918/17 IE 


49 

OPEN # COMMAND 

5162/142A 

5942/1736 


49 

OPEN—2 

5221/1465 

5981/175D 


50 

CALL E-ROM 

5256/1488 

NO EQUIVALENT 


51 

OPEN STREAM LOOKUP TABLE 

5319/14C7 

6010/177A 


51 

OPEN K 

5326/14CC 

6017/1781 


51 

OPEN S 

5330/14D2 

6021/1785 


51 

OPEN P 

5334/14D6 

6025/1789 



CAT, ERASE, FORMAT, MOVE 


6035/1793 


51 

LIST & LL1ST COMMANDS 

5345/14E1 

6037/1795 


er 

LLIST ENTRY 

5441/1541 

6133/17F5 


cr 

LIST ENTRY 

5445/1545 

6137/17F9 


53 

PRINT A WHOLE BASIC LINE 

5537/15A1 

6229/1855 


54 

SKIP SLUG 

5634/1602 

6326/18B6 


54 

PRINT A FLASHING CHAR 

5645/160D 

6337/1SCI 

\ 

54 

PRINT THE CURSOR 

5677/162D 

6369/18E1 


55 

FIND NEXT LINE 

5723/165B 

6415/190F 


irrcr 

wJ 

PRINT CHAR IN BASIC LINE 

5745/1671 

• 6437/1925 


56 

LINE ADDRESS 

5846/16D6 

6510/196E 


56 

COMPARE LINE #’S 

5864/16E8 

6528/1930 


56 

FIND EACH STATEMENT 

5872/16F0 

6536/1988 


57 

FIND NEXT ONE(LINE/VAR) 

5920/1720 

6584/19B8 


57 

LENGTH DIFFERENCE 

5957/1745 

6621/190D 


57 

RECLAIMING (DELETE) 

5965/174D 

6629/19E5 


58 

EDIT LINE # 

5992/1768 

6651/19FB 


58 

REPORT AND LINE # PRINT 

6024/1788 

6683/1A1B 



CARTRIDGE ROUTINES 



59 

AROS INITILI2ATION 

6069/17B5 

NO 


59 

ARCS GET A LINE 

6095/17CF 

EQIVA- 


59 

AROS LINE 

6122/17EA 

LENTS 


60 

AROS NEXT 

6143/17FF 



62 

AROS 

6342/1SC6 




BASIC LINE AND COMMAND INTERPR 

ETATION 


63 

SYNTAX OFFSET TABLE 

6469/1945 

6727/1A48 


64 

SYNTAX PARAMETER TABLE 

6523/197B 

6778/1A7A 


66 

MAIN PARSER (SYNTAX) 

6695/1A27 

6935/1B17 


66 

STATEMENT LOOP 

6725/1A44- 

6952/1B28 


67 

SCAN LOOP 

6805/1A95 

6994/1B52 


67 

SEPARATOR 

6834/1AB2 

7023/1B6F 


67 

STATEMENT RETURN 

6841/1AB9 

7030/1B76 


68 

LINE RUN (EXECUTE) 

6872/1ADS 

7050/IBSA 


68 

LINE NEW 

6882/1AE2 

7070/1B9E 


68 

REM COMMAND 

6912/1BOO 

7090/1BB2 
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L. O 

U_* K-) 

LINE END 


6921/1B09 

7091/1BB3 

68 

LINE USE 


6933/1B15 

7103/1BBF 

69 

NEXT LINE 


6951/1B27 

7121/1BD1 

L. O 
u .• 

CHECK END 


6980/1B44 

7150/1BEE 

69 

NEXT STATEMENT 


6986/1B4A 

7156/1BF4 

69 

COMMAND CLASS TABLE 


7012/1B64 

7165/0C01 

7 0 

COMMAND CLASSES 0,3 & 

cr 

7024/1B70 

7181/1COD 

70 

JUMP ENTER 


7033/1B79 

7190/1C16 

70 

COMMAND CLASSES 1,2 8< 

4 

7042/1B82 

7199/1CIF 

70 

FETCH A VALUE 


7045/1B85 

7202/1C22 

71 

COMMAND CLASS 4 


7119/1BCF 

7276/1C6C 

71 

EXPECT NUMERIC/STRINO 

EXP 

7132/1BDC 

7289/1C79 

“7 1 

/ J. 

EXPECT 2 NUMBERS(CLASS 

8) 

7133/1BDD 

7290/1C7A 

71 

EXPECT 1 NUMBER (CLASS 

6) 

7141/1BEC 

7298/IC82 

71 

EXPECT EXPRESSION (10) 


7151/1BEF 

7302/1CSC 

~7 1 

/ j. 

SET PERMANENT COLORS 


7161/1BF9 

7318/1C96 

71 

COMMAND CLASS 9 


7209/1C29 

7358/1CBE 

72 

COMMAND CLASS 12 


7238/1C46 

7387/1CDB 

77 

FETCH A # 


7241/1C49 

7390/1CDE 

72 

STOP COMMAND 


7257/ 1 CPiP 

7406/1CEE 

7n 

IF COMMAND 


7259/1C5B 

7408/1CFO 

72 

FOR COMMAND 


7288/1C78 

7427/1DOS 

74 

LOOK IN PROGRAM 


7464/1D28 

7558/1D86 

-vcr 
/ uJ 

NEXT COMMAND 


7509/1D55 

7595/1DAB 

76 

READ COMMAND 


7574/1D96 

7660/1DEC 

78 

DATA COMMAND 


7310/1E82 

7719/1E27 

“7 0 
/ u 

PASS BY 


7828/1E94 

7737/1E39 

78 

RESTORE COMMAND 


7837/1E9D 

• 7746/1E42 

78 

RESTORE RUN 


7882/1ECA 

7749/1E45 

79 

RANDOMIZE COMMAND 


7892/1ED4 

7759/1E4F 

79 

CONTINUE COMMAND 


7908/1EE4 

7775/1E5F 

79 

GOTO COMMAND 


7921/1EF1 

7802/1E7A 

79 

POKE COMMAND 


7946/1F0A 

7808/1E80 

79 

GET TWO PARAMETERS 


7951/1F0F 

7813/1ESS 

79 

FIND SINGLE INTEGER 


7966/IFIE 

7828/1E94 

79 

FIND DOUBLE INTEGER 


7971/1F23 

7833/1E99 

80 

RUN COMMAND 


7979/1F2B 

7841/1EA1 

80 

CLEAR COMMAND 


7990/1F36 

7852/1EAC 

81 

GQSUB COMMAND 


3089/1F99 

7917/1EED 

81 

TEST ROOM (CK SZ) 


8123/1FBB 

7942/1F06 


FREE MEMORY 


SEE 10548 

7962/1F1A 

81 

RETURN COMMAND 


3148/1FD4 

7971/1F23 

82 

PAUSE COMMAND 


8171/1FEB 

7994/1F3A 

82 

BREAK KEY? 


3201/2009 

8020/1F54 

r~, f— t 
Gxl 

DEF FN COMMAND 


8221/201D 

8032/1F60 

83 

ON ERR COMMAND 


8320/2080 

NO EQUIVALENT 

84 

STICK COMMAND 


8401/20D1 

NO EQUIVALENT 

Oer 

w_* 

SOUND COMMAND 


8487/2127 

NO EQUIVALENT 

qct 

UNSTACK Z 


8527/214F 

8131/1FC3 

85 

LPRINT COMMAND 


8533/2155 

3137/1FC9 

85 

PRINT COMMAND 


8537/2159 

8141/1FCD 

86 

SET TOKEN FLAG 


8569/2179 

NO EQUIVALENT 

86 

PRINT A SEQUENCE 


8574/217E 

8159/1FDF 

O L. 

START A NEW LINE 


8596/2194 

8181/1FF5 

O iL 

PRINT ITEMS 


8603/219B 

8183/1FFC 
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87 
8 7 
87 

87 

88 
90 
90 

90 

91 

92 
97 


END OF PRINTING(STR 
PRINT POSITION 
STREAM 
COMMAND 
SEQUENCE 
ASSIGN 
CHANNEL K 
ITEMS 
CHANGE 
H 


ALTER 
INPUT 
INPUT 
INPUT 
INPUT- 
COLOR 
COLOR 
HI FLA; 


BORDER COMMAND 
RESET COMMAND 


END?) 8676/21E4 
8685/21ED 
8719/220F 
8747/222B 
8811/226B 
9059/2363 
9088/2380 

9Q99/23QB 

9147/23BB 
9245/241D 
9273/243E 
9300/2454 


3261/2045 
8270/204E 
3304/2070 
8329/2089 
8385/20C1 
8633/21B9 
3662/21D6 
8673/21E1 
8721/: 

8319/: 

8852/: 

NO EQUIVALENT 


2211 

2273 

'2294 


94 

RESET PARAMETERS 

9368/2498 

NO EQUIVALENT 

94 

NEW DEVICE 

9426/24D2 

NO EQUIVALENT 

95 

SAVE,LOAD,VERIFY,MERGE 

9543/2547 

NO EQUIVALENT 

96 

VIDEO 2 SCREEN 

9570/2562 

NO EQUIVALENT 

96 

SKIP IT (CART) 

9577/2569 

NO EQUIVALENT 

97 

PASS TO BANK 254 

9657/25B9 

NO EQUIVALENT 

97 

CATALOG COMMAND 

9672/25C8 

6035/1793 

97 

FORMAT COMMAND 

9676/25CC 

6035/1793 

97 

MOVE COMMAND 

9680/25D0 

6035/1793 

97 

ERASE COMMAND 

96S4/25D4 

6035/1793 

97 

GARBAGE 

9700/25E4 


98 

PIXEL ADDRESS 

9731/2603 

S874/22AA 

93 

POINT 

9764/2624 

8907/22CB 

98 

PLOT COMMAND 

9781/2635 

8924/22DC 

99 

STACK TO BC 

9824/2660 

8967/2307 

99 

STACK TO A 

9837/266D 

' 8980/2314 

99 

CIRCLE COMMAND 

9849/2679 

8992/2320 

100 

DRAW COMMAND 

9947/26DB 

9090/2382 

104 

INITIAL PARAMETERS 

10198/27D6 

9341/247D 

105 

LINE DRAW 

10256/2810 

9399/24B7 


EXPRESS 

ION EVALUATION 


106 

EXPRESSION 

10324/2854 

9467/24FB 

106 

SCAN QUOTE 

10344/2868 

9487/250F 

106 

SCAN 2 COORDINATES 

10363/287A 

9506/2522 

107 

SCREEN POSITION 

10382/288E 

9525/2535 

108 

FIND ATTR 

10455/2SD7 

9600/2580 

108 

PI ROUTINE 

10477/2SED 

NO EQUIVALENT 

108 

STICK COMMAND 

10488/2SF8 

NO EQUIVALENT 

109 

FREE COMMAND 

10548/2934 

SEE FREE MEMORY 

109 

SCANNING FUNCTION TABLE 

10572/294C 

9622/2596 

109 

SCANNING FUNCTION 

10601/2969 

9647/25AF 

109 

SYN-QUOTE 

10609/2971 

9651/25B3 

112 

SYN-VARIABLE 

10387/2A87 

9929/26C9 


113 SYN-MAIN LOOP 

114 TABLE OF OPERATORS 
114 TABLE OF PRIORITIES 
114 SCAN FOR FN 

117 FN SKIROVER 

118 LOOK IN VARS(FIND VAR) 

119 STACK FUNCTION ARGUMENT 
119 STACK VARS 

122 SLICING 


10994/2AF2 
11091/2B53 
11113/2B6E 
11131/2B7B 
11369/2C69 
11376/2C70 
11535/2D0F 
11604/2D54 
11792/2E10 


10036/2734 
10133/2795 
10160/27B0 
10173/27BD 
10411/2SAB 
10418/28B2 
10577/2951 
10646/2996 
10834/2A52 
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123 

STACK STORE 

11887/2E6F 

10929/2AB1 

123 

INTEGER EXPONENT 

11914/2E8A 

10956/2ACC 

123 

LOAD DE, DE+1 

11948/2EAC 

10990/2AEE 

124 

GET HL*DE 

11954/2EB2 

10996/2AF4 

124 

LET COMMAND 

11965/2EBD 

11007/2AFF 

126 

LET ENTER 

12132/2F64 

11174/2BA6 

i r> 
j. 

LET SUBROUTINE CONTINUED 12140/2F6C 

11183/2BAF 

126 

LET STRING 

12164/2F84 

11206/2BC6 

127 

LET FIRST 

12200/2FA8 

11242/2BEA 

127 

GET PARAMETERS 

12207/2FAF 

11249/2BF1 

1 27 

DIM COMMAND 

12224/2FC0 

11266/2C02 

129 

ALPHA NUM 

12358/3046 

1 1400/2CSS 

129 

DECIMAL TO FP 

12377/3059 

11 /}. (") t p p n 

130 

E FORMAT 

12457/30A9 

i •} 499/2CEB 

130 

NUMERIC 

12505/30D9 

11547/2DIB 

130 

STACK DIGIT 

12512/30E0 

1 j cr ip cr / —. ~y 

130 

STACK A 

12518/30E6 

11560/2D28 

131 

STACK BC 

12521/30F9 

11563/2D2B 

131 

INTEGER TO FP 

12537/30F9 

11579/2D3B 


ARITHMETIC ROUTINES 


131 

E FORMAT TO FP 

12557/310D 

11599/2D4F 

132 

INTEGER FETCH * 

12605/313D 

11647/2D7F 

132 

INTEGER STORE 

12618/314A 

11660/2D8C 

1 77 

FLOATING POINT TO BC 

12640/3160 

116S2/2DA2 

133 

LOG (2""A) EXPONENT 

12671/317F 

11713/2DC1 

133 

FLOATING POINT TO A 

12691/3193 

11733/2DD5 

134 

PRINT A FLOATING PIONT # 12705/31A1 

•11747/2DE3 

138 

CA = 10 *A + C 

13130/334A 

12171/2F8B 

139 

PREPARE TO ADD 

13146/335A 

12187/2F9B 

139 

FETCH 2 #'S 

13177/3379 

12218/2FBA 

140 

SHIFT ADD END 

13212/339C 

12253/2FDD 

140 

SHIFT 4/5 

13242/33BA 

122S3/2FFB 

140 

ADD BACK 

13251/33C3 

12292/3004 

141 

SUBTRACTION (3) 

13262/33CE 

12303/300F 

141 

ADD (15) 

13266/33D3 

12308/3014 

143 

HL*DE 

13416/3468 

12457/30A9 

143 

PREPARE TO MULT/DIVIDE 13439/347F 

12480/30C0 

143 

MULTIPLY (4) 

13499/3489 

12490/30CA 

1 4 6 

DIVISION (5) 

13678/356E 

12719/31AF 

148 

INTEGER TRUCATI ON->0 

(58)13779/35D3 

12820/3214 

149 

RESTACK 2 #’S 

13906/3652 

12947/Tip 9 ;% 

149 

RESTACK FP (61) 

13910/3656 

12951/3297 


FLOATI 

NG POINT CALCULATE 

!R 

150 

CONSTANT TABLE 

13956/3684 

12997/32C5 

150 

ADDRESS TABLE 

13974/3696 

13015/32D7 

151 

CALCULATE 

14106/371A 

13147/335B 

152 

DELETE ( 2 ) 

14176/3760 

13217/33A1 

152 

SINGLE OPERATION (59) 

14177/3761 

13218/33A2 

153 

TEST 5 SPACE 

14195/3773 

13236/33B4 

1 CT 

1 JO 

MOVE FP #(DUPLICATE)(49) 14207/377F 

1324S/33C0 

153 

STACK LITTERALS (52) 

14213/3785 

13254/33C6 

154 

SKIP CONSTANTS 

14262/37B6 

13304/33F7 

154 

MEMORY LOCATION 

14277/37C5 

13318/3406 
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154 GET FROM MEMORY(EO Etc) 
154 STACK A CONSTANT(AO Etc) 

154 STORE IN MEMORY(CO Etc) 

155 EXCHANGE (1) 

155 SERIES GENERATOR(86 Etc) 
155 ABSOLUTE MAGNITUDE (42) 

155 UNARY MINUS (27) 

156 SIGN (41) 

156 IN (44) 

156 PEEK (43) 

156 USR FUNCTION (46) 

157 CALL USR BANK 

158 USR STRING (25) 

158 TEST ZERO 

159 GREATER THAN ZERO (55) 
159 NOT (48) 

159 LESS THAN ZERO (54) 

159 ZERO OR ONE 
159 OR (7) 

159 NUMBER AND NUMBER (8) 

159 STRING AND NUMBER (16) 

160 COMPARISIONS (9-14,17-21 

161 STRING CONCATENATION (2Z 

161 STACK POINTERS 

162 CHR$ FUNCTION (47) 

162 VAL/VAL* FUNCT (24,29) 

162 STR$ FUNCTION (46) 

163 READ IN (26) 

163 CODE (28) 

163 LEN (30) 

163 DECREASE COUNT (DJNZ)(5^ 

164 JUMP (51) 

164 JUMP IF TRUE (0) 

164 END FP CALC (56) 

164 MODULUS (50) 

165 INTEGER FUNCTION (39) 

165 EXPONENTIAL (38) 

166 NATURAL LOGARITHM (37) 

167 REDUCE ARGUMENT (57) 

168 COSINE (32) 

168 SINE (31) 

168 TANGENT (33) 

168 ARCTANGENT (36) 

169 ARCSINE (34) 

169 ARCCOSINE (35) 

170 SQUARE ROOT (40) 

170 EXPONENTATION (6) 

170 TAPE MESSAGE TABLE 

171 CHARACTER TABLE 


142S6/37CE 

13327/340F 

1429S/37DA 

13339/34 IB 

14316/37EC 

13357/342D 

14331/37FB 

13372/343C 

14344/3808 

13385/3449 

14377/3829 

13418/346A 

14381/332D 

13422/346E 

14417/3851 

13458/3492 

14436/3864 

13477/34A5 

14443/386B 

13484/34AC 

14450/3872 

13491/3483 

14466/3882 

NO EQUIVALENT 

14551/38D7 

13500/34BC 

14596/3904 

13545/34E9 

14612/3914 

13561/34F9 

14620/39IE 

13569/3501 

14625/3921 

13574/3506 

14630/3926 

13579/350B 

14646/3936 

135S5/351B 

14655/393F 

13604/3524 

14664/3948 

13613/352D 

)14678/3956 

13627/353B 

)14775/39B7 

13724/359C 

14310/39DA 

13759/35BF 

14820/39E4 

13769/35C9 

14S41/39F9 

13790/35DE 

14906/3A3A 

13855/361F 

14944/3A60 

•13393/3645 

149S0/3A34 

13929/3669 

14991/3A8F 

13940/3674 

)14997/3A95 

13946/36A7 

15009/3AA1 

13953/3686 

15018/3AAA 

13967/363F 

15030/SAB6 

1 -TO-7CJ /TtDp 

A •-* t i t / *_«w / IT* 

15035/3ABB 

13984/36AO 

15050/3ACA 

13999/36AF 

15071/3ADF 

14020/36C4 

15150/3B2E 

14099/3713 

15262/3B9E 

14211/3783 

15301/3BC5 

14350/37AA 

15312/3BD0 

14263/37B7 

15349/3BF5 

14298/37DA 

15357/3BFD 

14306/37E2 

15438/3C4E 

14387/3833 

15454/3C5C 

14403/3843 

15461/3C65 

14410/384A 

15463/3C6C 

14417/3851 

15497/3C89 

2465/09A1 

15616/3D00 

15616/3D00 


173 

175 

176 

177 


XFER DISPATCHER 


FUNCTION DISPATCHER 
24576/6000 


FUNCTION DISPATCHER 
INTERRUPTABLE RESTART 
NONMASKABLE INTERRUPT 


25088/6200 

25262/62AE 

25351/6307 


NO 

EQUIVALENTS 
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177 

NONMASKABLE INTEERUPT 

25351/6307 


177 

B3 MAX BANK 

25365/6315 


177 

GET WORD 

25365/6316 


178 

PUT WORD 

254Q3/633D 


178 

WRITE BS REGISTER 

^ 4 4. / JL nr er. p 


179 

READ BS REGISTER 

25517/63AD 


1 SO 

GET STATUS 

25605/6405 


181 

GET CHUNK 

25677/644D 


181 

GET BANK # 

r>«=; jl o n / i .ic-r 
x.. -_j 0/4 / o *t „j 


182 

BANK ENABLE 

25753/A 499 


184 

SAVE BANK STATUS 

25836/65IE 


184 

RESTORE STATUS 

25930/654A 


185 

GOTO BANK 

25970/6572 


185 

BANK STATUS STACK 

25997/658D 


185 

BANK STATUS STK POINTER 

26062/65CE 


185 

CALL BANK 

26064/65D0 


187 

MOVE BYTES 

x.. o xZ x:. / (z> O 8 L_- 


188 

GREAT BITMAP 

26344/66E8 


1 oo 

J. uu 

XFER BYTES 

26402/6722 


191 

DISPATCH SOURCE 26647/6817 

EXTENDED ROM ROUTINES 


192 

E-STARTUP 

EOOOO/OOOO 

NO 

192 

E-ERROR 

E0008/0008 

EQUIVALENT! 

192 

E-INTERRUPT RESTART 

EO056/0038 


192 

E-STARTUP CONTINUED 

E0073/0049 


192 

SET HORIZONTAL REGISTER 

E0079/004F 



CASSETTE 

HANDLING ROUTINE! 

- 

193 

SAVE BYTES 

EO 104/0*068 

1218/04C2 

194 

SAVE/LOAD RETURN 

E0229/00E5 

1343/053F 

194 

LOAD BYTES 

E0252/00FC 

i 6 6 / O 5 5 6 

196 

READ BIT AND READ EDGE 

E0393/0189 

1507/05E3 

196 

SAVE/LOAD/VERIFY/MERGE 

E0427/01AB 

1541/0605 

206 

VERIFY CONTROL 

El423/05SF 

1595/07CB 

206 

LOAD A DATA BLOCK 

E1478/05C6 

2050/0802 

206 

LOAD CONTROL 

E1484/05CC 

2056/0808 

209 

MERGE CONTROL 

E1765/06E5 

2230/0SB6 

211 

MERGE LINE OR VARIABLE 

El945/0799 

2348/092C 

213 

SAVE CONTROL 

E2129/0851 

2416/0970 

214 

CALL WAIT FOR KEY 

E2218/08AA 

NO EQUIVALE 

Oic 

X_ X •_» 

EXIT WITH ERROR 

E2265/08DA 

t 

215 

EXTENDED INITIALIZATION 

E2279/08E7 


217 

FIND CHAN ADDF: 

E2458/099A 


218 

BUILD SYS CQNF TABLE 

E2548/09C2 


220 

SET END MARKER 

E2772/0AD4 


220 

INTERRUPTABLE RESTART 

E2779/0ADB 


~ O T 

RESET BS REG 

E3025/0BD1 



GET USR BANK 

E3103/0C1F 


224 

RESET SYS CONF 

E314S/0C4E 


OOi. 

X_ X_ LJ 

SET END MARKER-2 

E3317/0CF5 


226 

CLEAR SYS CONF 

E3323/0CFA 


r ? 7 ~? 7 

INCREASE BANKS 

E342S/0D64 


nn-7 

CLEAR MAX BANKS 

E3460/0D84 


228 

OPEN D-FILE 

E3504/ODB0 



CLOSE D-FILE 

E3623/0E27 
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CHANGE VIDEO 
PASSING 
SET GOSUB 
GOTO BANK 
CALL BANK 
FIX BL TABLE 
FUNCTION DISI 
ERROR LI SI- 
FLAG LIST 


MODE 


JUMP TABLE 


E3726/0E8E 

E3907/0F43 

E3965/0F7D 

E3978/0F8A 

E3993/0F99 

E7424/2900 

E7900/30DC 



